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Canada $4.25 
USA $3.50 




Non-destructive windows on the C128 

Trouble-free 2400 Baud serial communication on the C64 

A DOS wedge for the C64 in ROM 

Far-Sys: execute machine code in any RAM area 

An easy-to-build parallel printer in terface for the C128 

Special centrespread bonus: GEOS label reference chart 

Machine language routines for game programming 

Serial I/O routines in Power C 

All about the C128's BANK command 

Product Reviews: Z3PLUS for CP/M, JiffyDOS, SWL shortwave decoder, The 
ZR2 Hardware interfacing chip 

Plus Regular columns by Todd Heimarck and Joel Rubin, Programming tips in 
Bits, and more 
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J FINAL CARTRIDGE III 

JtbtiruFLMlttfan Ain^u<i aj!^ 

J HUB 4 in# ranflt n* uuuum ill u*a Mb Uui 

J torn «bn* to tarn tiul ton km <ult 

atmc^y rowUiM i>f t tfr wa 

J M MrJitr* urii muuiW «iLh iB tl* i«a) 

Ma%uu*4iid M 

J lhut|itt pmmt pruu riujqi iMnpmpd/ 

i Bw IBM* 

J fm*i v*W4» 3 is t ajarh ujiium nt ml* 
wilt ic idM ban** iif * rrtwir hiNUain 

only $54.99 

TOOLKIT N 

NrUuLUO/IMI 

JAiltflb4lltwiiiite^iUi0ri4lbiUi*Mrai»i|Mli-: 
fc*lU IV hafl mi tauiint Ihtfl mrst to* to* 

J TUBS DGCTIIH W ffed uid wnte tny n-«* uhJ « 
mdfcmifit . tnumbered twht ttopur thuuapil 

■rtm lad uubrnseUii raid >rrm 

j wiAiifh m « tiiun ii*ttta And (Utiwyt. au. fmAtr 

» ii«*i»r «id tiaulttr rfit|< fouuaber awlw« AJ*> *|* ftjiy 
MMMMV 

J LK'LK U i itlretfrry Ntwmni i<*i flta liiajiky Hit 

run *jid *ldiiu B .a fbuaaealhtt uiy ft* pfug« » 
Uu ri*i to m:auh or I'hJVlTh uuAAm uwltajwanM 
(focdtt bill turn Mmh muUi Burt 

JHIJCUMMlTOft i|*Min4cbmt^t^t i. 

J FAST fi|5K tfffY Gnqr &ii haii* >1M m Q mnubti « kwu 

jfAzffnun»W - fltiMtoAfeooty WurUAiLipbHititntHi 
nunMiii*d 

J HHtJiAJTRR Ul mi'mhI fovB\Ai in ettiai* iLafc ir rurm*i 

^ivpw»i»rmufim»0kn 
(ttvinuuiv M . mi* i,f ravou* <jnwif dM taQidU 

jiHAMmrT tm i^^N^um™ 

inulud<ti|^= <HwJUwkAurtt«r6MMliL^ 

"irtikUiuulormtirti . 
tita»y*u bi ndififu *itf rttiiiuawy pftnuiayfi 

ONLY $14.99 




DIGITAL SOUND 
SAMPLER 

J Th» ri» BdHifwtr aiimifi jrau 15 rvnrd *nj miQd rttftaWtf 

into iMMti-T , *i«y it vnji ummvlini «tt** 

J liivh^fc fimtilfl/backmnla *iiii ml \ m| 

oii-luUtoG 

J hiU A till h hi A # AW unvmon 

J UmIi oonpaUhkr mnh tfUAabk Midi udar^w 

Ml 

J M anuM rt*M iftd phMm *RMi o*uu «iui 



J fWBrful mh^mw (4U» k*d Saw funeUQM 

J Um lli UkU hi lAKttiMl h«tti4i-4 •ftitltlMtii 

J (MipMt IwihriR/ioAnnt imuiuM* 

only $89.99 




MIDI 64 

J hUI HpeulfloaUon MIDI interface at a 
realistic hioe 

j Mini in j Mini an j midi thru 

Compatible with most leading Mini software. 

only $49.99 



TURBO 



Ttarbo Ion II ti a npUctmat 
for thi utmil kernaJ Inalde 
yonr 64. It provldn iop«rtut 

IoAd/tm rOOtiBM. 

J lotbih uvea awBl pro|YUH U flfl uiimb 

nonul '>i-'"ii 

_J Improved em til Hinn-.ti including 10 aeo 
formal 

J (•roirMim*! fiintiUmi Mays load. 
Brntaqi ■ id Me 

J HMurn to niirmil kurnai *i fllnli ol * 
SWUlIt 

J WXtPi 1 aflO hkioli file o»pl«r 

J n/)At) apeaul l/U loader 

J Mh« loU mora 

J flUffl in nUnulH - no mtldanr^ minaliv 
requirad (On boom Mb Uib nM MM may 
li-ivti I* daaiilrtarnt ) 

oNtr $24.99 






2MK SUPEROM EXPANDER 

J Now you out MtMt from u\y ol B UK tWUJMi 

J fl molMA Id aooapt upUi a AUK Ei1U)M in auh 

J On boftrd n|»i«un| ayBUin no pro|ruu 
to load 

J hvfmiD your own KPHOUi iuin| uur Kl'lUlM 
1'rujnunoiflr 

_J No need to nan load* of oaitrkdt>6 juit 
aula a aalaction fn>m the Suparom menu 

J Dmatory nf uUliUas on power up 

J hifly manu driven on power up 

J SolBot any aloi undBP aoftwui oonipolfl 

J llruu.ua 8PHOU generator feature will lata 
ywir own pru|raJtia baalo or m. n aiid Uirn 
them into aubtaUrt BI'luJMa i KPluiM tmrner 
required > 

J Aooepta it'tfA/Wt 188/87866 BPROMe 

onut $49.99 




EPROMMER 

J A U)p qiiall^ way to \m EfhOM 
programmer for the 64/126 

J M|y menu driven softwaw/hanlware 
pac^araaliflflpj^rammUag/rBa-lu^ verifying/ 
oi)pyuig BPHOMb auiiplHiity Ilwlf 

JWiU|>ri*Pajna7a8eoKlp« IftD, A] 
BBvolU 

J FiUi Me uur part for mammim 00B 
[latjluiiiy with cartrIdiBa r -Buiterom hoard elo 

J hill feature eyetoin all fmitTUuna 
oovered iniduling dovice ohe«k/ verify 
J We believe Bprominer (M ie the moet oom 
lirehiinem, most friendly and beet value for 
money pragrammar available fnp Uie 64/128 

J Ideal Cfimpanion for Superom Board 
Oartrldfe dflvelopmenl HytHem our kmnal 
eipandere or imleed any BRPUM bane 
lin^l 

J fcmea ooaplw mUi uiM-nmuuiie - phis 

Uie twU'hlgp liar nil tmik 

onut 

$69.99 COMPLETE 



DEEP SCAN BURST NIBBLER™ 

J TIib most puwsptiil disk mbblvr available anywhere, at any pruw' 

J Hurat Nibbler ib aiitiiaily a t«m part syBtom ix w iRware paoltale ul a paraJlol cable to oonnail Uii> 
IMK1B70/IB7U | 'MflUtotype) 

J What *iwn Buret Nibbler ito p..wor" Onnwntiona) nibblere have to daoode the data from the disk 

bl« It can transfer It uaiiid the aenaJ bus when non atondard daU ib enootuilered Ihey are ImM 
Huret Nibbler transfers data an raw OCR code via the parallel cable without the need to decode il no you 
del a perfect copy of the oris*UiaJ 

• NlUrUbUtUptoflj] tracks •Oopya wh<ilodiakuniiirier2minuto8 • Pull nmtniottons 

• tfaafular upcUlBS w> aJwaye alup th- laUtst • Uttod in minutos no, ^ uaually mpurad 

• Pull OF 1 1 tracka • No need to buy parallel cable if you have ProoNUlonaJ IXKl oi>; 

• Cable hae UirouUhbut eitonsion for other add ons 

onut $39.99 complete 

software only $19.99 cable only $19.99 

BURST NIBBLER PARAMETER DISK 

J IhtrM NiMiHw » Uw auM |iwr(til MtMikat ktnmi I** ww Uii 1ml m> t* l»u>i J TiiM dul wnialM ikmrn El 
lanuiMUrt tpcuiti arnun ft* Uia pnaMUon MliaaiM UNaawvM v Nlhliu TImm u« nainl; V mu *)••) tuiMilhwl uwt 

.<<• Uka ajufa m IManiHr of Uu» l.'ruan Uudum Hi J l^M |y updaUKl i. u.'iudt vi> (,»■ uUm J Tti- ,1** 
oauiB a nmm iE - Uii MuhUitI Rural NiUhlw will aipy um> J wrboti u ■ if jnu mil Ui *, g, Um UniW UiUt 4 ttw 

ONLT $14.99 




SMART CART 



J NOW YOil CAN IIAVR A MK CAHTRIDGB 

THAT YOU PltOUItAM IJKR ItAM THEN AITO 

UKKIUIMI 

jMKpfl««lo»U)M battory hanked to 

laHl up to 8 yeara ( lithium battery i 

J Blmpry load the program you requirfl - 

then flick the awiuih The cartridge then 

aote like a KOM oartrldge and can even be 

removed 

J Make your own cartridges even auto 

atari types, without Uih need fur an Eprom 

burner 

U Can be switched In/out via aoflware 

1 j 1/011 alot open for Bpeolal programming 

UJclinlqiiM. 

onlv $59.99 




J EXTERNAL 3.5" 
DISK DRIVE 

* lip ijuaiAj NW ilrivtt «i«it.autttiii • Ttiixpipiliirt alMn 
LUifljElwjLiibj itiltti tlrmt • A »i(af ri^j ttyM cue 
fiiklMiWI in aviiLiift nkHtri # ^0|y fiwW|atiihlt • 1 11144 

< Utted UUUULJ • r^nl UitMfUi «4tilli Iw pRaWHUai cm 
ynui 1 liub w • iiHn|M« m man Ut Ua 

ONLY $1 69.99 SIMOiaf 
ONLY $299.99 DUAL 





DUPLIKATOR 

J |)ii|blllukir u * inui dU aVplar hM ki olubi iter 

juHMiffiu.tMiLnnUawithAM^rionh^ 

5*:i*/#Uto na«ftnn^lf>tkl 
M aim Nifm t«Atahi« ti. ft wttmnibit! 
J Mnlupb DOpkiB frt» hi* ori|Ui4l over QAO dkUii B w*f 
in ur hill vfirllj upton. 
JOupW 
mwBlll* 

jilwnaApriiiftflia«wmiifaMli»hiL«fift. 
vnllui, 



only $189.99 




Circle MM on Header Service card. 
Add 84.00 SUppln^V Handling 
CHECKS/MOHBT ORDER/CODS 




IJ MIDIIMASTER 

• Pull Midi Interface for ABOO/2000/ 
HKK) ( I'toiuifl ntale model ) 

• CJompatlble with moat loading Midi 
oaolugen ( inc. I) Mu/uo ) 

• Midi In Midi Out x 3 - 
Midi Thru. 

• Fully Opto Isolated/ hill MIDI, 

ONLY $59.99 
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ACTION ' 

REPLiffB THE ULTIMATE UTILITIES/BACKUP CARTRIDGE FOR THE 64/128 



• lotion HepUy allowi yon to fteeie the action of any memory Baiident Program and maka a oo 
thati not all ... , Jut compart theae futures 

Simple Operation Just preae the button at any BpFttl Killer Effective on most programs - make 

point and mate a complete backup of ai\y # memory yourself invincible 1 Kaabkl Sprite/8prKe,'Hackroim.i 

resident program to tape or disk collisions 

1\irbu Reload All backups reload Completely llntmn hnhiiw Mauw Vrtuaa mnA aain» nnu Hinaa 

UpendanUyoftheoaitiMdjeai'nii'tMispeed I 

j Bpnte Monitor View the Sprite aet from the frozen , R)Pmai 

program aave the Sprite transfer Sprites from one 

gam.e to another Wipe out Spntee. view the ftnfflfttJrfl , • 

mi tu\nmn Create ouajun programs 







back-up to disk or tape - but 



UNIQUE FEATURES: 



Lotdi BOX 1b undar 6 Mtiondal 



tUnrUluli A trpMi 



• * btdiinjtaJ Minim* re^iliwl • Ha qHl ktrmUM 

• Super nbAbU # Rmaatar Una m not a qiUa vlim fW 
ban la t* ounnrW wiu* intoon t*^ f*j auvpd atn 
dnoliT Ufti Vaiv IB Mint nk«d m neowla • taihui> all 
your *f mn\i i^fiw to lw el iinhafcmfcia ^wdfi • Hew** 

dlrMly al 8fl Urn *i**i 
wiUtiitwiiMMMiirti 

• iarp Han 1**1 ArUtaUe 4ru|hl fo»m huv 

□ Plus unique Code 
Cracker Monitor 



1 4liy imifritiii ami autor i full ntftiititiH iwte UW" 

• fti) Uuiilm* fwtums Itaamtrti Hei fun 
Compart >. WvtarnU rwi \w Ij« 

i' n etj; In f**;i ail ufuiJ monflpf aiamwi 

• &»*m- H*iMf e on toart ham kite n 

Cilii wi tHi Uc^imI ai ^riKHTY In * « FraiH »UW 

naoiii VuJeo R*m /w J*«b ** uul i*fu*ml*er f»uu ^ 
i FrWIi nUU M in a Reeel rtUl* 4. 
HhaJuiU • ttmUtt 111* img* * 

• H ** > mwKrti mu* 

ilifcWliUV 
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(imparling 
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saved an a,Kiugk 
ubilny^^s 

A hoat of additional rooiiuand 
nd. Old. Delete, Uneaave.'h'int* >r 



[i DliBp Prttfl cut any Screen to Huator 
..iters lti Gra,y Scales, Double aize print optioni 

Unstoppable Itoeet Huaet hutton to Rectrieve 
System and Heset even so called Unstoppable 
Programs 

j Fulty Compatible Wirka with 1&41/C, 1881, 1671 
and ttatacaaseue with CM, 128. 1JJ8D | ft M Mode) 

j Oompatable With fast DOS and Turbo Horn Systems 

j Disk UuliUea fast Fbrmat, rureotory, list, Hun and 
many other key commands are operated by PuncUim 

Unique Restart . dl bJ IbMfl utilities are 

available it dm time Iron an integral r btlnj 
ayatem A run i unit programme can bo Kinizen to snUr 

v Utility and the program ie t*' 1 '- tedalthi hoi 
a key without oorrupOon 

|£] Logic Prooaaaor This \t\ whoiv Actum 
Heplay IV gete it's jiower a mioial OUfllon I ill 
Ship designed to pixxieae (hi It **■* i • ■ in-< -■ n , ' : 

unmatched Pree/.e Heatait power No other oartn 
tuui this power 1 



J Action Replay 
Graphics Support Disk 

• kelp Ue ataMAia el aaUm rvpiif ■ a«1«w pmi to freaM 

•■T ecraen iii »m ll lau m bmilu ^fapAki p^U|* «e 
km pnpAni a itHa af |nfUe eippnrt fiertmee 

• far«M ftaw Vitiw riiiewi* if, a alto§ fiin^w **juanni 

> m|ilt? bi use # ltrfn|i Maker Add *'*"iimf 
(neAMjeD u< >-mr uved wirwne *iUi ibiWc. VAJf AA*y u. na* 

• rnaprHe A M apiiW *i*,r noftify 'AMI l»*i hAUirc hill «U 
fAiiilAiu 9 Iaas Um bfMi AAMfcilu of u; AAvatl w i«n v> hUj 
UN tnoludini Bcrttr Buimrtt lim AOd very uwftil 

OMtr $19.99 

CENTRONICS miNTER 



SDUe full adnnUilB of Ai i i « or PUul 

Lridja aonwn tlunp tttaltina with Uils neM 
ImuI 

JODfUlMtt UMi | UU M ulna Hi«on 

oomptUbl^prini/ir 

ONLY $18.99 
i J SUPERCRUNCHER 

J A uUIlty u it hniau Itoplitf ink* a mjper 

|tuw6rhil iirciirf uii M luduoe pnframt: hy ti| 

■ iluih ri|iaoa and h wling Umw Cm\ even finther 

nreoonpftoi 

ONLY $9.99 
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TECHNICAL SUPPORT MONDAY THRU SATURDAY 
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Keep-80 

by Richard Curcio 

A non-destructive windowing technique that uses RAM in the VDC chip as auxiliary storage 

Kernal++ 

by William Coleman 

Add a DOS wedge to your C64 - in ROM! 



Far-Sys for the C64 

by Richard Curcio 

Execute machine language easily anywhere in the 64 's memory - even in the dreaded D' block 



C128 Parallel Printer Interface 

by Bill Brier 

Use a regular parallel primer on your 128 with this simple User Port interface and printer driver 



GEOS Label Names 

Compiled by Francis G. Kostella 

Special centrespread feature - a handy cross-reference table for all GEOS assembler labels 



Gamemaker's ML Grab-Bag 

by Zoltan Hunt 

Programming games in assembler? Here's a collection of short routines to make your life easier 



17 



20 



28 



32 



40 



42 



46 



50 



The BASIC 7.0 BANK Command 

by D.J. Morriss 

What exactly does the C128's BANK command do? A look at the ROMs reveals all the effects of this 
often-misunderstood command. 

RED ATE 

by Adam Herst 

Adam's latest CP/M utility is a real convenience - never type in the system date again! 

Serial I/O in Power C 

by W. Mat Waites 

A comprehensive collection of serial I/O functions for the C programmer 



56 



Toward 2400 62 

by George Hug 

Real 2400 bit-per-second communication is easy on the 64 with these routines. And unlike the Rental's 
RS-232 routines, these are bug-free 



Departments and Columns 



Bits 



Rit?puzzle solved 
Dala Mouth 
Alien Video 



Dynabordcr 
Video Reset 



The Edge Connection 10 

by Joel Rubin 

Joel looks at some more assembler paekages, a CP/M C compiler, discusses some bugs in the 65xx 
CPU chips, and more. 

The ML Column 14 

by Todd Heimarck 

Todd implements the "voters" program from Scientific American in ML on the 64, and in the process 
covers hi-res graphics programming and random number generation 



Reviews 



Z3PLUS 



69 



Our local CP/M expert looks at this extensive CP/M enhancement for the 128 



JiffyDOS for the C64/C128 72 

This ROM chip set promises compatibility, convenience and super speed; as Noel reports, it delivers. 

SWL Short Wave decoding cartridge 76 

Turn those beeps and squeals in shortwave broadcasts into readable text with SWL and a 64 or VIC-20 



The ZR2 Hardware Interfacing Chip 

Control the world through your C64\s user port with this versatile interfacing IC 



78 



About the cover: Dreamtime, by Wayne Schmidt 

Wayne Schmidt is our regular cover artist, creating the artwork on the C64 with a 
variety of software. Wayne explains the work as follows: 

"Inspired by the wonderful totemic imagery of the Aboriginal Australians, the 
'Dreamtime' refers to a core mythic state in which there is a communion with the 
Eternal Spirit and an experience of visions that transcend all boundaries of normal 
experience and human limitation." 

Thanks to David Foster at Ready Soft, who supplied the RGB colour values to match 
the 64's colour set. 
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Using "VERIFIZER" 



Transactor's foolproof program entry method 



Verifizer should be run before typing in any long program 
from the pages of Transactor. It will let you check your work 
line by line as you enter the program and catch frustrating typ- 
ing errors. The VERIFIZER concept works by displaying a two- 
letter code for each program line; you can then check this code 
against the corresponding one in the printed program listing. 

There are three versions of verifizer here: one each for the 
PET/CBM, VIC/C64, and CI 28 computers. Enter the applica- 
ble program and RUN it. If you get a data or checksum error, 
re-check the program and keep trying until all goes well. You 
should SAVE the program since you'll want to use it every 
time you enter a program from Transactor. Once you've RUN 
the loader, remember to enter NEW to purge BASIC text 
space. Then turn verifizer on with: 

SYS 634 to enable the PET/CBM version (off: SYS 637) 
SYS 828 to enable the C64/VIC version (off: SYS 83 1 ) 
SYS 3072,1 to enable the CI 28 version (off: SYS 3072,0) 

Once verifizer is on, every time you press RETURN on a 
program line a two-letter report code will appear on the top 
left of the screen in reverse field. Note that these letters are in 
uppercase and will appear as graphics characters unless you 
are in upper/lowercase mode (press shift/Commodore on 
C64/VIC). 



Note: If a report code in the printed listing is missing (or "--") 
it means we've edited that line at the last minute, changing the 
report code. However, this will only happen occasionally and 
usually only on REM statements. 

With verifizer on, just enter the program from the magazine 
normally, checking each report code after you press RETURN 
on a line. If the code doesn't match up with the letters printed 
in the box beside the listing, you can re-check and correct the 
line, then try again. If you wish, you can LIST a range of lines, 
then type RETURN over each in succession while checking 
the report codes as they appear. Once the program has been 
properly entered, be sure to turn VERIFIZER off with the SYS 
indicated above before you do anything else. 

VERIFIZER will catch transposition errors like POKE 52381,0 
instead of POKE 53281,0. However, VERIFIZER uses a 



''weighted checksum technique" that can be fooled if you try 
hard enough: transposing two sets of four characters will pro- 
duce the same report code, but this will rarely happen, (veri- 
fizer could have been designed to be more complex, but the 
report codes would need to be longer, and using it would be 
more trouble than checking the program manually), verifizer 
ignores spaces so you may add or omit spaces from the listed 
program at will (providing you don't split up keywords!) Stan- 
dard keyword abbreviations (like nE instead of next) will not 
affect the VERIFIZER report code. 

Technical info: VIC/C64 verifizer resides in the cassette 
buffer, so if you're using a datasette be aware that tape opera- 
tions can be dangerous to its health. As far as compatibility 
with other utilities goes, VERIFIZER shouldn't cause any prob- 
lems since it works through the BASIC warm-start link and 
jumps to the original destination of the link after it's finished. 
When disabled, it restores the link to its original contents. 

PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 

CI 10 rem* data loader for "verifizer 4.0" * 

LI 20 cs=0 

HC 30 for i=634 to 754: read a: poke i,a 

DH 40 cs=cs+a: next i 

GK 50 : 

OG 60 if csol 5580 then print"***** data error *****"; end 

JO 70remsys634 

AF 80 end 

IN 100: 

ON lOOOdata 76,138, 2,120,173,163, 2,133,144 

IB 1010 data 173, 164, 2,133,145, 88, 96,120,165 

CK 1020 data 145,201, 2,240, 16,141,164, 2,165 

EB 1030 data 144, 141, 163, 2, 169, 165, 133, 144, 169 

HE 1040 data 2,133,145, 88, 96, 85,228,165,217 

OI 1050 data 201, 13,208, 62,165,167,208, 58,173 

JB 1060 data 254, 1. 133,251, 162, 0, 134,253, 189 

PA 1070 data 0, 2,168,201, 32,240, 15,230,253 

HE 1080 data 165,253, 41, 3,133,254, 32,236, 2 

EL 1090 data 198, 254, 16,249,232,152,208.229,165 

LA 1100data251, 41, 15, 24,105,193,141, 0,128 

KI 1 110 data 165, 251, 74, 74, 74, 74, 24,105,193 

EB 1 120data 141, 1,128,108,163, 2,152, 24,101 

DM 1130 data 251, 133,251, 96 
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VIC/C64 VERIFIZER 

KE 10 rem* data loader for "verifizer" * 

JF 15 rem vic/64 version 

LI 20cs=0 

BE 30fori=828to958:reada:pokei,a 

DH 40 cs=cs+a:next i 

GK 50: 

FH 60 if cso 14755 then print"***** data error *****"; end 

KP 70remsys828 

AF 80 end 
IN 100: 

EC 1000 data* 76, 74, 3,165,251,141, 2, 3,165 
EP 1010 data 252, 141, 3, 3, 96,173, 3, 3,201 
OC 1020 data 3,240, 17,133,252,173, 2, 3,133 
MN 1030 data 251, 169, 99, 141, 2, 3, 169, 3, 141 
MG 1040 data 3, 3, 96,173,254, 1,133, 89,162 
DM 1050 data 0,160. 0,189, 0, 2,240, 22,201 
CA 1060 data 32,240, 15,133, 91,200,152, 41, 3 
NG 1070 data 133, 90, 32,183, 3,198, 90, 16,249 
OK 1080 data 232, 208,229, 56, 32,240,255,169, 19 
AN 1090 data 32,210,255,169. 18, 32,210,255,165 
GH HOOdata 89, 41, 15, 24,105, 97, 32,210,255 
JC 11 10 data 165, 89, 74, 74, 74, 74, 24,105, 97 
EP 1120 data 32,210,255,169,146, 32,210,255, 24 
MH 11 30 data 32,240,255,108,251, 0,165, 91, 24 
BH 1140 data 101, 89,133, 89, 96 



CB 370 data 255, 169, 19, 32,210,255,169, 18 

OK 380 data 32,210,255.165,250, 41, 15, 24 

ON 390 data 105, 193, 32, 210, 255, 165, 250, 74 
OI 400data 74, 74, 74, 24,105,193, 32,210 

OD 410 data 255. 169, 146, 32,210,255, 24. 32 

PA 420 data 240, 255. 108, 253, 0, 165, 252, 24 
BO 430 data 101, 250, 133, 250, 96 



The Standard Transactor 
Program Generator 

If you type in programs from the magazine, you might be able 
to save yourself some work with the program listed on this 
page. Since many programs are printed in the form of a BASIC 
"program generator" which creates a machine language (or 
BASIC) program on disk, we have created a "standard genera- 
tor" program that contains code common to all program gen- 
erators. Just type this in once, and save all that typing for ev- 
ery other program generator you enter! 

Once the program is typed in (check the Verifizer codes as 
usual when entering it), save it on a disk for future use. When- 
ever you type in a program generator, the listing will refer to 
the standard generator. Load the standard generator///-.?/, then 
type the lines from the listing as shown. The resulting program 
will include the generator code and be ready to run. 



C128 VERIFIZER (40 or 80 column mode) 

KL 100remsave"0:cl28vfz.ldr",8 

OI 110 rem c- 1 28 verifizer 

MO 120 rem bugs fixed: 1) works in 80 column mode. 

DG 1 30 rem ' 2) sys 3072,0 now works. 

KK 140 rem 

GH 150 rem by joel m. rubin 

HG 160 rem * data loader for "verifizer c 128" 

IF 170 rem * commodore c 128 version 

DG 180 rem * works in 40 or 80 column mode!!! 

EB 190ch=0 

GC 200 for j=3072 to 3220: read x: poke j,x: ch=ch+x: next 

NK 210 if cho 18602 then print "checksum error": stop 

BL 220 print "sys 3072,1 to enable 

DP 230 print "sys 3072,0 to disable 

AP 240 end 

B A 250 data 170,208, 11,165,253,141, 2, 3 

MM 260 data 165, 254, 141, 3, 3, 96, 173, 3 

AA 270 data 3,201, 12,240, 17,133,254,173 

FM 280 data 2, 3, 133,253, 169, 39, 141, 2 

IF 290data 3,169, 12,141, 3, 3, 96,169 

FA 300data 0,141, 0,255,165, 22,133,250 

LC 310 data 162. 0,160. 0,189, 0, 2,201 

AJ 320data 48,144, 7,201, 58,176, 3,232 

EC 330 data 208, 242, 1 89, 0, 2, 240, 22, 201 

PI 340 data 32,240, 15,133,252,200.152, 41 

FF 350data 3,133,251, 32,141, 12,198,251 

DE 360 data 16,249,232,208,229, 56, 32,240 



When you run the new generator, it will create a program on 
disk (the one described in the related article). The generator 
program is just an easy way for you to put a machine language 
program on disk, using the standard basic editor at your dis- 
posal. After the file has been created, the generator is no 
longer needed. The standard generator, however, should be 
kept handy for future program generators. 

The standard generator listed here will appear in every issue 
from now on (when necessary) as a standard Transactor utility 
like Verifizer. 



rem transactor standard program generator 

nS="filename": rem name of program 

nd=000: sa=00000: ch=00000 

for i=l to nd: read x 

ch=ch-x: next 

if ch then print "data error": stop 

print "data ok, now creating file." 

restore 

open l,8,l,"0:"+n$ 

hi=int(sa/256): lo=sa-256*hi 

print#l,chr$(lo)chr$(hi); 

for i=l to nd: read x 

print#l,chr$(x);: next 

close 1 

prinfprg file '";n$;"' created..." 

print'this generator no longer needed." 

□ 



MG 


100 


EE 


110 


LK 


120 


KO 


130 


EC 


140 


FB 


150 


DE 


160 


CM 


170 


CH 


180 


HM 190 


NA 


200 


KD 


210 


HE 


220 


JL 


230 


MP 


240 


MH 250 


IH 


260 
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Not Fair! 



Boy, am I steamed! Recently I was in a computer 
store in downtown Toronto, waiting in line at the 
cash register. The customer in front of me was 
purchasing GeoPublish for the Apple. I was 
amazed to discover that the software is supplied 
on both 5.25" and 3.5" disks. What's more, a 
sticker on the front of the package makes the 
proud boast that the software is - hold your breath 
- not copy-protected! 

Yes, you read that right. Apple GeoPublish is not 
copy-protected. I guess Apple users will never 
know the terrors of having only one boot disk. I 
wonder if they have serial numbers... 

Why the special treatment for Apple users? 
Surely the vast majority of Berkeley Softworks' 
customers are Commodore users. Don't they de- 
serve the consideration that is being shown to Ap- 
ple users? Isn't it partly as a result of the resound- 
ing success of Commodore GEOS that BSW pro- 
duced GEOS for the Apple? Why is Commodore 
GEOS copy-protected? Is it because GEOS is an 



"official" operating system? Was the copy- 
protection Commodore's idea? 

I expect that every regular GEOS user has been in- 
convenienced, irritated or infuriated by the obsta- 
cles put in the way of the legitimate user. I know 
I have. A friend of mine (who is not a GEOS user) 
once told me that a copy-protected operating sys- 
tem was his definition of a useless thing. I can 
see his point and I'm sure that a lot of CP/M, 
MS-DOS and AmigaDOS users would concur. It 
just doesn't make sense. 

If you want people to use your operating system 
and if you want programmers to develop applica- 
tions to run in that environment, make it easy to 
use. And I don't mean 'point and click' easy. 

I don't mean to malign BSW or Commodore. I 
just had to say something. Maybe one day copy- 
protection will disappear. Sigh.... 

Malcolm D. O'Brien 
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Got an interesting programming tip, a short routine, or an unknown bit of 

Commodore trivia? Send it in - if we use it in the bits column, well credit you in the 

column and send you a free one-year subscription to Transactor 



Bits puzzle solved 

In Volume 8 Issue 5, we posed what we thought was a difficult 
challenge - the following simple program was presented: 



1 print 



ii * n 



poke NUM, 



...and the challenge was to find what value of NUM would 
cause the program to fill the entire screen with asterisks. We 
didn't offer any prize for the solution, but half in jest, we of- 
fered a free bits book to anyone who could come up with a 
second solution. 

Well, it wasn't too long before we received the first solution 
from Randy Thompson of Greensboro, North Carolina. 
Randy's answer was the one we expected: "Simply POKE a ze- 
ro into the low byte of Basic's txtptr (S7A-S7B) to reset 
CHRGET." We knew of no other solution, but still promised a 
free bits book to anyone who could come up with one. 

Well, surprise! Jim Bond of Spokane. Washington recently 
submitted an article, and along with it the following solution if 
we would allow it: 

* 

1 print "*";: poke 2069,138: 

Using '138' (and the extra colon) instead of is a slight cheat, 
but the solution is ingenious enough, and considering we didn't 
think there even was one. we're giving Jim recognition (and the 
bits book) for the second solution. It works by adding a RUN to- 
ken to the end of the program, modifying itself to keep running 
over and over again, printing an asterisk each time. Just goes to 
show that where there's a will, there's a poke! 

Dynaborder 

Jean-Yves Lemieux, Rimouski, Quebec 

"Dynaborder" stands for "dynamic border". It is an interrupt- 
driven program that uses the raster line registers to enhance 
the screen border with a dynamic rainbow of colours. It can 
offer a bit of animation to your BASIC or machine language 
program, especially during an INPUT, its shortness (215 bytes) 



lies in the fact that it contains self-modifying routines. To 
make it compatible with both the 64 and the 128 (40 column 
screen), this version is loaded at $3000 (12288). Enable with 
'sys 12288* and disable with 'sys 12493'. The source code for 
Dynaborder follows: 



sys700 

* dynaborder * 

* pal source code * 

* ky jean-yves lemieux * 

* rimouski (qc) dec 88 * 
************************ 

opt oo 



JX 


1000 


HD 


1010 


HA 


1020 


EO 


1030 


LL 


1040 


AO 


1050 


KJ 


1060 


GJ 


1070 


OK 


1080 


GF 


1090 


GJ 


1100 


CB 


1110 


ED 


1120 


NG 


1130 


AL 


1140 


OK 


1150 


EH 


1160 


NG 


1170 


CB 


1180 


HI 


1190 


GC 


1200 


DF 


1210 


CX 


1220 


DF 


1230 


EC 


1240 


KJ 


1250 


LN 


1260 


BE 


1270 


AI 


1280 


FN 


1290 


CK 


1300 


CG 


1310 


NN 


1320 


EL 


1330 


EF 


1340 


MJ 


1350 



tem 

irqold 

irqvec 

rashi 

raslo 

irr 

imr 

bcol 

icr 

f 

*=$3000 



=$254 ; temporary storage 
=$257 

=$314 ; irq vector 

=$d011 ; raster line 

=$d012 ; registers 

=$d019 ;int. request reg 

=$d01a ;int. mask reg 

=$d020 ; border color 

=$dc0d ;int. cntrl reg 



di 



sex 

Ida irqvec 
ldy irqvec+1 
sta irqold 
sty irqold+1 
Ida #<newirq 
ldy #>newirq 
sta irqvec 
sty irqvec+1 
cli 

Ida #1 
sta imr 
sta irr 
Ida #$lb 
sta rashi 



; prepare new 
; interrupt 
; procedure 



.enable raster 
; line interrupt 
; reset irr 
; clear raster 
/compare bit (8) 
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CP 


1360 


Ida #$7f 


; clear irq 


AH 


1940 




inx 














OD 


1370 


sta icr 


;flag bit 


KE 


1950 




cpx 


#$16 










HI 


1380 


Ida #$00 




JD 


1960 




bne 


cirq 










MH 


1390 


sta tem 


; prepare 


JN 


1970 




inc 


tem+2 










DO 


1400 


sta tem+2 


; self -modifying 


CG 


1980 




beq 


cirq 










NL 


1410 


Ida #$05 


; routine 


FG 


1990 


rl 


ldx 


tem+1 










AN 


1420 


sta tem+1 




GE 


2000 




clc 














BB 


1430 


Ida #$d7 




OL 


2010 




Ida 


n6+l 










CM 


1440 


sta n6+l 




JA 


2020 




adc 


#$04 










GJ 


1450 


rts 




AB 


2030 




sta 


n6+l 










KC 


1460 ; 






PK 


2040 




dex 














ON 


1470 newirq 


= * 




DJ 


2050 




bne 


ci 


rq 










OD 


1480 ; - 






OA 


2060 




dec 


tem+2 










HK 


1490 


Ida #$32 


; first interrupt 


MI 


2070 


/ 
















IM 


1500 


sta raslo 


;at line 50 


JO 


2080 


cirq 


=* 








.continue irq 




CD 


1510 


ldx #1 


; reset 


AK 


2090 


■ 
f 
















IK 


1520 


stx irr 


; register 


EN 


2100 




stx 


tem+1 






4 




FE 


1530 


ldy #0 




BJ 


2110 




Ida 


#$30 




; next 


raster line 




HM 


1540 nl 


adc #2 


; if a raster line 


MG 


2120 




sta 


raslo 




; interrupt 




AE 


1550 n2 


crap raslo 


;has been reached 


PD 


2130 




Ida 


#i 












MF 


1560 


bne n2 


;we display 


FO 


2140 




sta 


irr 










IK 


1570 


stx bcol 


; a color stripe 


MG 


2150 




jmp 


(i 


rqold) 










DI 


1580 n3 


inx 




GO 


2160 


disable =* 














II 


1590 


adc tem+1 


/separated by 


DB 


2170 




sei 














DE 


1600 n4 


cmp raslo 




MN 


2180 




Ida 


ir 


qold 










CI 


1610 


bne n4 




IA 


2190 




ldy 


irqold+1 








OH 


1620 


sty bcol 


; a black line 


JC 


2200 




jmp 


di 












ID 


1630 n5 


cpx #$05 
























| KJ 


1640 


bne nl 




The 


follcv 


A'ing ] 


program 


is 


a generator for 


dynaborder.obj\ 




GO 


1650 


bit tem 




Once this file is 


created by the program 


below 


\ load it and exe- 




DH 


1660 


bvs rest 




cute it like this: 






* 










MP 


1670 ; 


























HC 


1680 


ldx #0 


; modify prior 


load " dynaborder . ob j " , 


8,1 










KB 


1690 


stx n5+l 


/routine 


sys 12288 












« 




NJ 


1700 


ldx #$ca 


; ' dex ' opcode 






















EG 


1710 


stx n3 




KG 


100 rem generator 


for "DynaB 


order 


.obj" 




NL 


1720 n6 


Ida #$00 


/display bottom 


EL 


110 n$="DynaBorder. 


obj": 


rem 


name 


of program 




CG 


1730 


sta raslo 


/ rainbow 


AD 


120 nd=215: sa=12288: ch= 


=22654 






FB 


1740 


ldx #1 
























LL 


1750 


stx irr 


- 


(f 


ur lines 130-260, see 


the standard \ 


generator on page 5) 




IA 


1760 


dec tem 


* 






















JD 


1770 


ldx #4 




AO 


1000 


data 


120, 173, 


20, 


3, 


172, 


21, 3, 141 




GC 


1780 


bne nl 




AJ 


1010 


data 


87, 


2, 


140, 


88, 


2, 


169, 61, 160 




EH 


1790 ; 




i 


KD 


1020 


data 


48, 141, 


20, 


3, 


140, 


21, 3, 88 




DL 


1800 rest =* 


i 


/restore newirq 


GP 


1030 


data 


169, 


1, 


141, 


26, 


208, 


141, 25, 208 




PA 


1810 ; 




routine 


NE 


1040 


data 


169, 27, 


141, 


17, 


208, 


169, 127, 141 




OM 


1820 


Ida #$e8 


/ ' inx' opcode 


FE 


1050 


data 


13, 220, 


169, 


0, 


141, 


84, 2, 141 




AI 


1830 


sta n3 




JI 


1060 


data 


86, 


2, 


169, 


5, 


141, 


85, 2, 169 




FC 


1840 


Ida #5 




CM 


1070 


data 


215, 141, 


115, 


48, 


96, 


169, 50, 141 




KF 


1850 


sta n5+l 




BH 


1080 


data 


18, 208, 


162, 


1, 


142, 


25, 208, 160 




BJ 


1860 


inc tem 




LD 


1090 


data 


0, 105, 


2, 


205, 


18, 


208, 208, 251 




FF 


1870 


Ida tem+2 




DJ 


1100 


data 


142, : 


52, 


208, 


232, 


109, 


85, 2, 205 




DK 


1880 


beq rl 




AK 


1110 


data 


18, 208, 


208, 


251, 


140, 


32, 208, 224 




1 OP 


1890 


sec 


/modify raster 


CM 


1120 


data 


5, 208, 


230, 


44, 


84, 


2, 112, 27 




1 IB 


1900 


Ida n6+l 


; line value 


HH 


1130 


data 


162, 


0, 


142, 


96, 


48, 


162, 202, 142 




JH 


1910 


sbc #4 




BL 


1140 


data 


83, - 


18, 


169, 


0, 


141, 


18, 208, 162 




CK 


1920 


sta n6+l 




PH 


1150 


data 


1, 142, 


25, 


208, 


206, 


84, 2, 162 




AJ 


1930 


ldx tem+1 


/and stripe width 


LJ 


1160 


data 


4, 208, 


198, 


169, 


232, 


141, 83, 48 
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CE 1170 data 169, 5, 141, 96, 48, 238, 

NM 1180 data 173, 86, 2, 240, 22, 56, 

NM 1190 data 48, 233, 4, 141, 115, 48, 

HI 1200 data 2, 232, 224, 22, 208, 23, 

OB 1210 data 2, 240, 18, 174, 85, 2, 

NN 1220 data 115, 48, 105, 4, 141, 115, 

GO 1230 data 208, 3, 206, 86, 2, 142, 

JC 1240 data 169, 48, 141, 18, 208, 169, 

MC 1250 data 25, 208, 108, 87, 2, 120, 

IC 1260 data 2, 172, 88, 2, 76, 17, 



84, 

173, 

174, 

238, 

24, 

48, 

85, 

1, 
173, 
48 



2 

115 
85 
86 

173 

202 
2 

141 
87 



Data Mouth 

Andrew Milieu, Asbestos, Quebec 

I recently discovered an amazingly useful method for checking 
data statements (especially long ones). Remember S.A.M.? 
For anyone with the Software Automatic Mouth, data- 
checking becomes a breeze! Simply load up S.A.M., then load 
in the data you want to check, and add these lines: 

1 poke 53265, peek (53265) and 239 

2 restore 



3 read x 

4 get a$ 

5 get b$ 

6 goto 3 



x$=str$ (x) : say x$ 
if a$="" then 3 
if b$="" then 5 



S.A.M. will recite your numerical data (including decimals) so 
that you can easily follow along with your printed listing and 
compare. To pause (that S.A.M. is relentless!), press any key, 
and press any key to start up again. Note that line 1 turns off 
the screen to eliminate the irritating visual flash. When done, 
hit RUN/STOP-RESTORE to return to normal. I'm sure this trick 
is easily modified for other software mouths. 

Video Reset 

Jim Bond, Spokane Washington 

Ever have your BASIC program bomb out while in hi-res 
mode? Can't see the error message showing line number that 
caused the error, can you? With this program, you just have to 
tap the RESTORE key by itself and voila! - the screen is restored 
to text mode without being cleared. Sound and sprites are 
turned off, too. It doesn't stop a running program, but don't 
use it during disk operations. 

The program works by intercepting the NMI vector - an NM1 
is generated when the restore key is pressed. It also redirects 
the 'error message link' vector at $0300 to re-install itself in 
case a run/stop-restore or another operation restores the 
NMI vector back to normal. To disable it, use the two ROM 
routines *sys 58451: sys 64789'. 

KC 100 rem video reset - relocatable 

DB 110 ml=50000: rem start address 

MO 120 : 

OB 130 x=ml: xl=x+21: x2=x+95 

OE 140 hl=int(xl/256) : ll=xl-256*hl 



IG 150 h2=int(x2/256) : 12=x2-256*h2 

BL 160 h3=int(x/256) : 13=x-256*h3 

GF 170 gosub 230 

OD r 180 print "tap restore to reset video" 

EP 190 poke ml+1,11 ■ poke ml+3,hl 

10 200 poke ml+11,12: poke ml+13,h2 

IF 210 poke ml+99,13: poke ml+100,h3 

JG 220 sys ml: end 

HJ 230 read a: if a=-l then return 

IM 240 poke x,a: x=x+l : goto 230 

BK 250 data 169, 128, 162, 192, 141, 24, 

PL 260 data 25, 3, 169, 202, 162, 192, 

LP 270 data 3, 142, 1, 3, 96, 72, 

CB 280 data 169, 6, 141, 32, 208, 141, 

HF 290 data 169, 14, 141, 134, 2, 169, 

CI 300 data 24, 208, 169, 200, 141, 22, 

LG 310 data 27, 141, 17, 208, 169, 199, 

HD 320 data 221, 160, 0, 173, 134, 2, 

DE 330 data 216, 153, 0, 217, 153, 0, 

LH 340 data 0, 219, 200, 208, 241, 140, 

EK 350 data 152, 153, 0, 212, 200, 192, 

KP 360 data 248, 104, 168, 104, 76, 71, 

CJ 370 data 138, 72, 32, 0, 192, 104, 

FC 380 data 76, 139, 227, -1 



Alien Video 

Brian Spencer, Barrie, Ontario 

Alien Video is a machine language program that is installed 
through basic, and is totally relocatable. Just change the num- 
ber in line 10 to whatever address you'd like the ML to reside 
at. After running the program, you'll be informed of the SYS 
to use to start Alien Video. When running, press any key to 
stop it. Besides a rather wild video display, the program pro- 
duces some truly unusual sound effects. 

MA 10 rem alien video 

JI 20 sa=828 

CM 30 for i=sa to sa+31 

AM 40 read d: poke i,d: next i 

FB 50 print "* sys";sa; M to start *" 

BM 60 data 169, 11, 141, 17, 208, 169, 15, 141 

EF 70 data 24, 212, 162, 23, 165, 162, 13, 18 

DC 80 data 208, 157, 0, 212, 202, 208, 245, 141 

DG 90 data 32, 208, 32, 228, 255, 240, 235, 



3, 


142 


141, 





152, 


72 


33, 


208 


23, 


141 


208, 


169 


141, 





153, 





218, 


153 


21, 


208 


25, 


208 


254, 


72 


170, 


104 



How was the video made? At full speed, the machine language 
reads memory location $a2 (162), performs a logical OR with 
memory location $d012 (53266), and stores the final result in 
the SID (sound) chip registers. It is reading from two con- 
stantly changing memory locations: $a2 is the least significant 
byte in the 64 's jiffy clock, and $d012 is the lower eight bits of 
the current screen line of the raster beam. The effect is a 
strange, alien-like sound. The visual part of the video is creat- 
ed by storing the same resulting byte to the screen border loca- 
tion ($d020, 53280); since the main display was turned off by 
a write to SdOlI, this affects the whole screen. That's all there 
is to it! Simple? Absolutely. , , 
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The Edge Connection 



CP/M C, more assemblers, CPU bugs and drive tips 



by Joel Rubin 



CP/M programmer Leor Zolman put a classified ad in the 
November '88 foghorn offering his BDS C compiler package 
for $90 (US) for the first copy and S50 for each additional 
copy. Presumably, the idea is to order through a users' group. 
You get the source code for a full-screen editor, debugger, 
xmodem-compatible telecommunications program (will it 
work on the CI 28?) and standard I/O library. A few years ago I 
did some programming on a multi-Z80 MP/M system and had 
access to both BDS C and Aztec C from Manx. I found Aztec 
to be closer to the Unix/K&R standard (especially when it 
came to using files); but, once I got used to BDS, I found it eas- 
ier to work with. BD Software is at P.O. Box 2368, Cam- 
bridge, ma 02238. (617) 576-3828. (I think the zip code 
should be 02138 not 02238.) Mr. Zolman takes check, visa or 
Master Card. Be sure to specify disk format or you might get 
the old CP/M default format - 8" single density! 

Speaking of the FOGHORN, fog, the one-time First Osborne 
Group, which supports CP/M, MS-DOS, and (soon) the Mac, is 
raising its dues on New Year's Day. You can order up to five 
years of membership for $25 (or $44 if you want both CP/M 
and MS-DOS publications) through 1988. (These are going up 
to $30 and $52.50, respectively.) There is a surcharge of $12 
per year per publication if you live in Canada or Mexico or if 
you live in the U.S. and want first class delivery. Fog is at 210 
Lakeshire. P.O. Box 3474, Daly City, CA 94015-0474, or, if 
you want to join by visa or Master Card, you can phone (415) 
755-2000, Monday through Friday, 1000 to 1730 Pacific Time. 
They also have a starter disk for $4, modem disk (specify set- 
up) for $4, and a three-disk catalog set for $10. The catalog set 
includes CP/M and MS-DOS programs and data files and is only 
available in Osborne DD or 360K MS-DOS formats. If paying by 
card you will get charged SI shipping per $25 merchandise. 

One more CP/M note: There is an error on page 684 of the 
Commodore 128 Programmer's Reference Guide. TYPE should 
be XDPH-i and UNIT XDPH-2; not reversed as they are. This is 
correct in the DRI Systems Guide but it's somewhat confusing - 
UNIT and type are shown as the low byte and high byte, re- 
spectively, of a word at XDPH-2, and, except in Motorola-land, 
the low byte of a word is at the lower address. 

Since I wrote a comparison of Merlin 128. Buddy and LADS in 

Transactor 9:2, I have seen two more 6502 assembler 



packages - Commodore's own DevPak for the CI 28 and 
Geoprogrammer. 

Some Commodore developers prefer to do their development 
on other machines and then download. Berkeley Softworks 
credits its use of sophisticated cross development tools for 
much of its success. Others, such as Eric Rosenzweig, who 
wrote the PTD-6510 debugger for Pterodactyl, say that pro- 
gramming on the object machine helps you to get used to the 
machine and program around its weak points. To quote Mr. 
Rosenzweig, writing in the September 1984 edition of the 
newsletter put out by the Programmer's Shop, (800-421-8006 
- I don't know if they sell anything for 8-bit Commodore com- 
puters in 1988) "Programming on a big machine and down- 
loading to a smaller or slower one results in a program being 
written for a big machine that runs slow and large when put on 
the target machine." 

Now, we have some programmers using the cross- 
development method who are so enamoured of their main- 
frame-based programming tools that they have attempted to 
port their tools to the object machine. DevPak 128 and Geo- 
programmer each have many fine features, but they run slow 
and large when put on the target machine. 

DevPak 128 ($50 U.S. from Commodore Business Machines, 
1200 Wilson Drive, West Chester, PA 19380) is extremely disk 
intensive. First, you edit the source file, using either the EDT 
editor which comes with the package, or, if you don't want to 
learn new editing commands, any word processor which can 
.save PETSCH text files to disk. Then, you load the assembler 
which creates files similar to (but not the same as) Intel Hex 
Files. Finally, you boot the loader, which reads the hex files 
into memory as binary code, and save the code to disk, using 
the C128's monitor. The loader can load the hex files into an- 
other part of memory if necessary - for example, if the binary 
image and the loader itself conflict. (Cinemaware's Warp 
Speed cartridge helps in this case as its monitor contains a 
"save using another load address" directive.) 

* 

The EDT editor, ported from a Digital Equipment mainframe, 
includes most of what you might want in a programmer's edi- 
tor, except, perhaps, for split-screen two file editing, and editor 
macro commands. It can handle files in PETSCH or ASCII, with 
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line lengths up to 255 characters, and can convert between the 
two. If you want to type in long lists of numbers with the nu- 
meric keypad, you will find, to your chagrin, that eot uses the 
numeric keypad for commands. 

The assembler is a full macro assembler. I think it is possible 
to write a macro package to allow this assembler to use 8080 
or Z80 op-codes, in some form, similar to .\6502Jib on the 
CP/M extras disk, in case you wish to write mixed 6502/Z80 
programs for the CI 28, but no such macro package is includ- 
ed. One feature which I missed was an 'offset' -type pseudo- 
op. Let's say that you are going to write code at one address 
which will be moved to another address (or downloaded to 
disk ram) before it is run. You would like to assemble so that 
your address references (e.g. in a JSR) refer to the running ad- 
dress rather than to the original loading address. Some assem- 
blers allow you to do this, but DevPak won't - you either have 
to assemble the offset code separately, or add the offset to all 
the address references. 

With DevPak, you also get the source code for file compres- 
sors, C64 fast loaders, and the DOS for the RAM expanders. 
There are also some utilities, such as a C64-mode sprite editor. 
The manual includes a discussion of some ROM differences in 
8-bit Commodore equipment, including the SX-64. The discus- 
sion of the new 1571 ROM, and the 1541C and 1541-11 ROMs 
sounds as if Commodore thinks they have finally exterminated 
the save-with-replace bug. 

The manual is more a spiral-bound collection of unrelated pa- 
pers than a manual. Some of the papers, such as the assembler 
instructions, are well-written and clearly printed. However, 
some of the program listings seem to have been printed on a 
1525, or similar low-quality dot matrix printer. Since these 
program listings are on disk, you don't need their listing. In 
case you don't know which way the wind is blowing, the man- 
ual cover has the word 'Amiga' twice as large as the word 
'Commodore*. 

The main problem with DevPak is its disk intensiveness for 
even the most minor programming task. (All assemblers run- 
ning on a CI 28 are going to become disk intensive if you try 
to write a 60K program.) If you use it with a single 1571 or 
1541, you are going to find yourself quickly running into the 
limits on the number of open files caused by the limited disk 
RAM, and, indeed, the assembler will warn you of that fact. 
Thus, if you want to include a file of often-used macros and 
often-used equates, and get both a listing and object file, you 
may have to repeat the assembly twice. 

Geoprogrammer, ported from Berkeley's Unix-based cross 
development system, is going to come out in Version 2.0 "real 
soon now". Version 1 only runs under the C64 version of 
GEOS; version 2 will run under either GEOS or GEOS128. Like 
RMAC, under CP/M, Geoprogrammer is an "edit, assemble, 
link, debug' system. The editor, for better or worse, is any ver- 
sion of geoWrite. On the one hand, geoWhte is slow and 
clunky for entering text. On the other hand, geoWrite allows 



you to paste in pictures, and geoAssemhler allows you to de- 
fine icons or other bit patterns using this. Of course, there's al- 
ways Text Grabber, which converts a file from another word 
processor to geoWrite format. 

GeoAssembler is a macro assembler. I don't think its macro 
language has quite the power of DevPak s, but. on the other 
hand, geoAssemhler can compute very complex 16-bit arith- 
metical expressions using a C-like syntax. GeoLinker com- 
bines the .re/ files and turns them into a regular Commodore 
program, a GEOS sequential program, or a GEOS vlir program 
with a resident module and, possibly, overlay modules. One 
nice feature of geoLinker is that if files A and B create global 
labels with the same name, you will not get an error unless file 
C tries to access that name as a Random external label (or 
maybe it allows you to be sloppier than you should be). While 
geoAssemhler and geoLinker do create, if necessary, error 
files, and geoLinker creates a symbol file, neither one creates 
listing files, which can be a pain. 

The best feature of the Geoprogrammer package is geoDe- 
bugger, but to use the debugger in its full glory requires that 
you have a RAM Expansion Unit. You can single step, or single 
step at the top level and execute subroutines at full speed, set 
break points, and perform all the usual monitor functions. If 
you have an REU, you can define debugger macros or refer to 
locations in symbolic terms. The Geoprogrammer manual is 
a huge beast, and is somewhat disorganized, but contains very 
useful information on programming under GEOS. Geopro- 
grammer \s advantages far outweigh its disadvantages //"you 
are writing programs that are to run under GEOS. However, 
while it can assemble non-GEOS programs, 1 think that other 
assemblers will do the job with far less hassle and probably 
more speed. 

Geoprogrammer can be purchased directly from Berkeley 
Softworks (Great Western Building, 2150 Shattuck Ave.. Pent- 
house, Berkeley, CA 94704) for S69.95 plus $4.50 shipping 
plus $4.90 sales tax in California, or through the usual retail 
outlets. 

Recently, in looking over some machine language reference 
books, I noticed that several of them do not mention ye olde 
JMP-indirect bug - including the CI28 Programmer's Refer- 
ence Guide. (Even though the bug does exist on the 8502!) In 
case you're learning 6502 programming and haven't run into 
it, here's the problem: 

Ordinarily, you expect jmp (vector) to load the PC with 
peek( vector) + 256 * peek(vector+l). However, if vector is on 
a page boundary, for example sikfe. you will get peek(vector) 
+ 256 * peek(int(vector/256) * 256)). Thus, if sihff contains 
S2D and $1800 contains S4F and SI900 contains $5C, then jmp 
(S18FF) jumps to S4F2D, not $5C2D - the microprocessor looks 
up the high byte at $1800, not Si 900. 

Just in case you're tempted to use this to confuse some pirate, 
you should know that the bug has been fixed on the 65C02 
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and 65816 - so the resultant code won't work with speed-up 
boards. Also, by a clear corollary to Murphy's Law, if you try 
playing with this, you will probably add or delete something 
and forget to make sure that the vector is or is not on a page 
boundary - leading to a next-to-impossible debugging job. If 
you must use JMP indirect, you should use assembler pseudo- 
ops to add filler bytes if necessary. I think that self-modifying 
code may be safer in some cases. 

Another potential problem on the 6502 involves the TXS op- 
code. Whenever you decrease the stack pointer (extend the 
stack) using TXS you should make sure that no interrupt, be it 
maskable or non-maskable, can possibly take place. For exam- 
ple, consider the following code, intended to let a routine find 
out where it is in memory: 



Finally, a few notes about 1541 and 1571 disk drives: 

a) Do you want to distinguish between the two? Try this: 

open 1,8,15, "m-r" + chr$ (dec ("67") ) + 
chr$(dec("fe")) : get#l,a$ 



This will read the first byte of the IRQ routine on either drive. 
On the 1541, the IRQ routine begins with pha ($48). On the 
other hand, since the 1571 has two modes, the IRQ routine be- 
gins with a jump indirect instruction (S6C). The vector is at 
$2A9 and points to $9D88 in 1541 mode and to S9DDE in 1571 
mode. Some commercial programs (Copy II and Fast 
Hack' Em) got into trouble trying to read the signature byte at 
5CO0O which changed when the 1571 ROM changed. 



Ida #$60 

sta $100 
adrl jsr $100 

tsx 
adr2 dex 

dex 

txs 

pla 

sta $fc 

pla 

sta $fd 



rts 

you almost never use this part of the stack 



You now expect (SFC) to contain adrl +2 because of the way 
jsr uses the stack. However, suppose an interrupt strikes on 
the first DEX. The interrupt overwrites the positions on the 
stack you are trying to read, and (SFC) now contains adrl. It 
won't happen very frequently, but, again by a Murphy's Law 
corollary, it will happen at the worst possible time. 



b) Do you want to change a single-sided 1541 disk into a 1571 
disk without losing data on the 1541 disk? (Follow at your 
own risk!!! Destroys flippies! ! !) 

open 1,8,15, "iO": print#l f "m-« M 
chr$(69) chr$(164) 

will format the second side of the disk. (You use "iO" to set up 
the disk ID value correctly.) 

Of course, this still doesn't finish the job - the double-side flag 
on track 18, sector is still single, and the BAM for the second 
side isn't written. So, you will have to change byte 3 (counting 
from 0), the double-side flag of 18/0, to $80, and copy the 
bytes 221 to 255 of 18/0 (giving the summary of the side two 
bam) from a freshly formatted double-side disk. Then, dclear, 
which will tell the 1571 that you have a double-sided disk. Fi- 
nally, copy 53/0 from a freshly formatted double-sided disk. 



If you have a CI 28 (or, I believe, C16/Plus 4) you have an al- 
ternative: 

jsr prinun 
.byte 

will leave the address of the null byte in ($CE). As long as you 
are not actually printing anything, you don't have to be in 
Bank 15 - any memory configuration in which the high ROMs 
are visible will work. 



c) Last, a faster way to dump a 1541 or 1571 ROM to disk - in- 
stead of reading each byte into the computer and then writing 
it back to the disk drive, you get the disk drive to write the 
bytes directly to disk. Of course, entering the program takes 
more time than you will ever save, but it's a neat hack. Maybe 
you can figure out some use for it. 

First, open 2,8,2,"#0". Note the W - the '0' tells it you want 
the buffer at $0300. Now, send the machine code below to the 
buffer: (open 1,845," b-p:2,0", then print the bytes to file 2) 



(Speaking of Bank 15, if you have a C128, you should always 
make sure that the I/O chips are visible before you try to do 
any input or output. This goes double if you try to interface 
with basic, as basic tends to leave you in configurations like 
Bank 14, or Bank 14 with RAM 1. This is why the version of 
the CI 28 Verifizer that appeared in Transactors before 9:1 
wouldn't work in 80 columns. If your machine language uses 
CI 28 BASIC routines that deal with variables or strings, you 
may find you have to use jsrfar even though you are going 
from Bank 15 to Bank 15, because the BASIC routines end up 
in Bank 14 with ram 1 and your program will try to return to 
the right address in the wrong bank - instant crash!) 



(fstad is the first address of the ROM which you want to dump - 
usually S8000 for the 1571,$coooor $cioo for the 1541.) 

Now, open 3,8,1," :dosfiIe". This opens a program file called 
dosfile to write. Now, type: 

print#l, "m-w" chr$(0) chr$(0) 
chr$(l) chr${224) 

This will tell the disk drive to execute the machine code in 
buffer 0. The dumping of the disk drive ROM will take place, 
and all files will be closed, independently of the computer. 
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,, 



romdump" - Follow directions given in article 



tell the system you finished running this code OK so the 

disk drive can do other work, like writing bytes 

all sectors are written in the interrupt cycle 

current secondary address 

disk drive internal channel for secondary address 1 

current disk drive internal channel 
put the load bytes to file 1 



org $300 

Ida f 1 

sta 

cli 

sta $83 

Ida $022c 

and 17 

sta $82 

Ida lup+1 

jsr put 

Ida lup+2 

jsr put 
lup Ida fstad 

jsr put 

inc lup+1 

bne nine 

inc lup+2 
nine Ida lup+2 

emp top+1 

bne lup 

Ida lup+1 

emp top 

bne lup 

jsr close 

Ida 12 

sta $83 

jmp close 
top .word finaladdress+1 mod 65536 
put = $dl9d ; put a byte in the current disk file 
close = $dac0 



yes, this is self -modifying code 
to change the address from fstad to the current address 
unfortunately, I couldn't find a zero page address which 
didn't get corrupted, so I had to do it this way 



□ 



— 



TransBlooperz 



Oops! A bug in our program that creates BASIC "genera- 
tor" programs managed to sneak two bad generators by us 
before we caught it. The result is that the programs will not 
work as listed, but fortunately the problem is very easily 
solved. These are the affected programs: 

■ 
- 

Volume 9 Issue 2, "Cycle Counting", page 31: 

Don't panic - all the data statements are correct! Just 
change line 110 as follows: 



110 n$="cc.cOOO" 

...and replace lines 130-250 with lines 130- 

. 

"standard generator" program on page 5. 



from the 



Volume 9 Issue !, "Multitasking on the C128", page 21: 

This one was even more messed up - after line 1 150, the 
line numbers start again at 1000! Ignore the first set of lines 
1 (XX)- 1150, and use the standard generator on page 5 in 
their place. Then replace lines 1 10 and 120 as follows: 

110 n$="multi.xnl" 

120 nd=529: sa=4864: ch=57790 



New! Improved! 

TRANSBASIC 2! 



with SYMASS™ 















"I used to be so ashamed of my dull, messy code, but 
no matter what I tried I just couldn't get rid of those 
stubborn spaghetti stains!" writes Mrs. Jenny R. of 
Richmond Hill, Ontario. "Then the Transactor people 
asked me to try new TransBASIC 2, with Symass* 4 . 
They explained how TransBASIC 2, with its scores of 
tiny 'tokens', would get my code looking clean, fast! 

"I was sceptical, but I figured there was no harm in 
giving it a try. Well, all it took was one load and I was 
convinced! TransBASIC 2 went to work and got my 
code looking clean as new in seconds! Now I'm telling 
all my friends to try TransBASIC 2 in their machines!" 



TransBASIC 2, with Symass, the symbolic assembler. 
Package contains all 12 sets of TransBASIC modules 
from the magazine, plus full documentation. Make your 
BASIC programs run faster and better with over 140 
added statement and function keywords. 

Disk and Manual $17.95 US, $19.95 Cdn. 

(see order card at center and News BRK for more info) 

TransBASIC 2 

"Cleaner code, load after load.'" 



j 
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The ML Column 



Creating order from chaos 



by Todd Hetmarck 

Copyright © 1989 Todd Heimarck 

The idea for this month's column comes from someone else. 
Last year, Byte magazine reviewed a book that was a compila- 
tion of columns from Scientific American magazine. One of 
the programs described in the review sounded interesting. 

The scenario is simple enough: You start with a pool of voters 
who have been assigned random political leanings, pick one of 
the voters at random, pick a neighbor at random, and change 
the neighbor's political preference to match the original voter. 
Then you repeat the process in an endless loop (or until some- 
body stops the program by pressing a key). 

The Commodore 64 's hi-res screen has 320 x 200 pixels. That's 
64,000 voters. You assign one of two colours to each pixel (I 
picked blue and white because they contrast with each other). 
Counting diagonals, each pixel has eight neighbors. In the main 
loop, you pick one of the voters, one of its eight neighbors, and 
change the neighbor's colour to match the voter. 

You create a tiny universe where everything happens random- 
ly. The voters are given colours at random. A voter is picked at 
random. A neighbor to be converted is picked at random. 

It sounds absurd, but in this chaotic and utterly random uni- 
verse, patterns of order arise. The first screen looks like televi- 
sion static. After several hundreds of thousands of arguments 
between neighbors, you see definite blobs growing on the 
screen. 

Although every rule relies on randomness, the voters gather 
together into blocs of solidarity. Here's a blotch of blue; 
there's a blotch of white. If you let the program run for a long 
enough time, you would probably see either blue or white take 
over the whole screen. 

The boon and the bane of assembly language 

I wrote the original voters program in the C language on a PC 
compatible. Then I translated it to run under BASIC 7.0 for the 
128. 

Both programs were relatively slow. It made sense to switch to 
assembly language, to squeeze the last drop of speed out of the 



computer. That's the main reason for programming in assem- 
bly language: It's the fastest game in town. 

I ran into a problem, however, which became the second topic 
for this column. Machine language is fast, but it's not always 
very good at handling randomness. 

Modular programming 

Let's jump into the program. It starts like this: 



• 






cOOO 20 Od cO 


jsr gmode 


; turn on graphics mode 


c003 20 le cO 


jsr inilvote 


; initialize voters 


c006 20 68 cO 


jsr campaign 


; randomly change votes 


c009 20 0dc0 


jsr gmode 


; back to text mode 


cOOc 60 


rts 





Although the program depends on chaos, that doesn't mean we 
have to be chaotic about writing it. If you believe in modular 
programming (also called "top-down programming"), you 
break down the task into modules. The C, BASIC, and assembly 
programs all looked pretty much the same because they had 
the same structure. 

The GMODE subroutine toggles the 64 between text mode and 
graphics mode: 



cOOd 
cOOd ad 1 1 dO 
cOlO 49 20 
6012 8d II dO 
c015 ad 18 dO 
c018 49 0c 
cOla 8d 18 dO 
cOld 60 



gmode = 



= * 




Ida SdOll ;scroly 

eor #%00100000; flip Bit 5 •• 

sta SdOll ; toggle graphics mode 

Ida $dOI8 ; vmcsb 

eor #%0000i 100; toggle bits 

sta $d018 ; toggle base addresses 

rts 



It's a short routine that makes the screen flip from text mode to 
graphics mode (and vice versa), but only if you start with a 64 
that's set for the default values. The eor (exclusive-or) com- 
mand changes the appropriate bits in SCROLY and VMCSB 
(Commodore's names for locations $doh and SD018). 

The next routine is called initvoters: 
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cOle 



initvote = * 



cOle 20 28c0 

c021 20 36c0 
c024 20 4ac0 

c027 60 



jsr mclinit ; crank up the noisy SID 

;voice 
jsr fill ; fill the colour bytes 
jsr choose ; the voters randomly choose 

;a colour 
rts 



Most people think of the SID chip as a musician, but if you tell 
it to use a noise waveform, you can get random numbers from 
it. The rndinit routine makes the SID chip start acting ran- 
domly: 



c028 



rndinit = * 



c028 a9 ff - 
c02a 8d Of d4 
c02d a9 80 
c02f 8d 1 2 d4 
c032 8d 18d4 

c035 60 



Ida #$ff 

sta $d40f ; max hi frequency 

Ida #$80 

sta $d4 1 2 ; noise waveform 

sta $d4 1 8 ; volume off and no output 

;for voice 3 
rts 



The registers at SD40E and SD40F control the frequency of voice 
three and SD4I2 controls the waveform (we're seeking noise). 
Storing an $80 into SD4I8 prevents the noise from being heard. 

Two ways to fill memory 

The hi-res screen will get its colour information from the text 
screen (although we could change that if we wanted to). The 
next routine fills locations 1024-2023 with the blue/white 
byte. The .Y register can only count to 255 and we need to fill 
1000 bytes. One way to do it is to count up to 250 four times: 



* 



c036 fill = 

c036 a9 61 Ida #$61 



c038 aO fa 

c03a 

c03a 

c03a 

c03a 

c03a 88 



Idy #250 
colO = 1024 
coll = col0 + 250 
col2 = col 1 + 250 
col3 = col2 + 250 
Ipfill dey 



: foreground 6 (blue) and 
; background 1 (white) 



c03b 99 00 04 
c03e 99 fa 04 
c041 99f4 05 
c044 99 ee 06 
c047 dO f 1 
c049 60 



sta eol0,y 
sta coll,y 
sta col2,y 
sta col3,y 
bne Ipfill 
rts 



; note that this sets the 
; zero flag 



The four stas don't affect the zero (equal-to-zero) flag. So 
when the program does a Branch if Not Equal (BNE) at $C047, 
it's working from the DEY instruction at SC03A. Dey affects the 
Z flag and sta doesn't. 

Although this subroutine might look a little odd. the oddness is 
necessary. We want the .Y register to count backward from 



249 to (forward from to 249 would be OK. too). I chose 
249 to because I could leave out the CPY instruction. The 
6592 processor knows when it hits a zero (equal-to-zero) condi- 
tion. It doesn't recognize 250 unless the program makes an 
explicit test for 250. You save a little time and a byte or two if 
you wait for a zero. 

Also, we don't really want to loop 250 to 1 . we want 249 to 0. 
But we want to STA when .Y contains a zero, so we dey before 
the STAs. 

Some people might put the location 1024 into a zero-page 
pointer and store indirectly with .Y That would work, but it 
would probably take more bytes and more clock cycles (try it 
if you don't believe me). 

The next routine fills 8192 bytes of bitmap memory with ran- 
dom numbers: 



c04a choose = * 




c04a bitmap = $2000 




c04a a2 20 


Idx #32 ; 32 pages of 256 bytes = 




; 8192 




c04c aOOO 


Idy #0 




c04e a9 00 


Ida #<bitmap 




c050 8d 5c cO 


sta selfmod+I 




c053 a9 20 


Ida #>bitmap 




c055 8d 5d cO 


sta selfmod+2 ; set 


up the address 


c058 adlbd4 


lpchoose Ida random 




c05b 99 ff ff 


selfmod sta Sffff,y 


; not the real address 


c05e c8 


iny 


; count forward 


c05f d0f7 


bne lpchoose 


; until .y wraps 


c()61 ee5dc0 


inc selfmod+2 




c064 ca 


dex 




c065 dOfl 


bne lpchoose 


; and repeat a total 
; of 32 times 


c067 60 


rts 


; and that's all 



Look at $C05B STASFFFRY. It looks like the value in .A is being 
stored at $FFFF indexed by .Y, but that's not really true. A few 
bytes back, selfmod+1 and SELFMOD+2 are changed. This is 
called "self-modifying code." 

At $C06i, the high byte (SELFMOD+2) increments. The program 
is programming itself by changing bytes within a loop. If you 
use this technique, remember four things: 

1) You can't rely on values being stable when you enter the 
subroutine. You should initialize the memory value (see 
$C04E-$C057) at the beginning of the routine. 

2) The 6502 puts the low byte before the high byte. The instruc- 
tion STA takes a byte, so the low byte is xxx+1 and the high 
byte hxxx+2. 

3) If you know what you're doing, you can do amazing things 
with self-modifying code. If you don't, you'll get 
headaches when you try to debug your program. 
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4) Structured programmers will think you're crazy (or stupid) 
if you write self-modifying code. If you're majoring in 
computer science in college, you might be expelled for 
doing things like this. 

The program ends with the final subroutine: 

c068 20 e4 ff campaign jsr getin 
c06b fO fb beq campaign 

c06d 60 rts 

This is just a placeholder. The meat of the program would go 
here. But there's a major problem that I can't solve. 

Computers aren't very random 

Assembly programs are so fast that the SID chip isn't random 
enough. It spits out noisy numbers, but they follow a pattern. 
Painting the screen with output from voice three produces very 
definite shapes and diagonal lines. Try POKEing various num- 
bers into 54286 (or STAing into $D40E). 

I wrote an entire campaign routine, but it was flawed because 
the 64 's SID chip couldn't produce random enough values. You 
can make a computer act chaotic up to a point, but then it 
insists on being orderly. If anybody has a solution, I'd like to 
hear about it. 

Listing 1: Source code in PAL format for the voters program 



LL 10 rem save"v.src\8 




FO 20 sys 700 




OF 30 


•=49152 




AJ 40 .opt oo 




IB 50 getin 


= $ffe4 




CL 60 random 


i = $d41b 




ML 70 ; 


















LF 90 


jsr gmode \ 


1 turn on graphics mode 


GI 100 


jsr initvote 


: initialize voters 


KB 110 


jsr campaign 


: randomly change votes 


AJ 120 


jsr gmode 


: back to text mode 


OG 130 


rts 




CA 140 ; 






PD KA . 






CD iJV , 






F0 160 gmode 


i = * 




GP 170 


Ida $d011 


; scroly 


MM 190 


eor 1*00100000 


; flip bit 5 


MN 190 


sta SdOU 


; toggle graphics mode on/off 


DM 200 


Ida $d018 


■ vracsb 


AA 210 


eor 1*00001100 


; toggle bits 


CJ 220 


sta $d018 


; toggle base addresses 


CH 230 


rts 




GG 240 ; 






JH 250 ; - 










01 260 initvote = * 
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MC 270 

HG 280 

HE 290 

IB 300 

MK 310 

AI 320 

HA 330 

DE 340 

JJ 350 

PA 360 

OH 370 

IG 380 

MP 390 

LN 400 

EH 410 

CF 420 

CN 430 

MP 440 

JA 450 

GB 460 

GC 470 

JO 480 

HP 490 

FA 500 

DB 510 

AF 520 

OP 530 

CJ 540 

IP 550 

OG 560 

PH 570 

PI 580 

KB 590 



HG 

KC 610 



ID 

HK 630 

PA 640 

CP 650 

EC 660 

AJ 670 

PF 680 

IH 690 

EM 700 

MD 710 

PE 720 

AG 730 

HE 740 

XH 750 



jsr rndinit 
jsr fill 
jsr choose 
rts 

rndinit = * 
Ida #$ff 
sta Sd40f 
Ida #$80 
sta $d412 

sta $d418 ; 

rts 

fill = * 

Ida #$61 

ldy #250 
colO = 1024 
coll = colO + 250 
col2 = coll + 250 
col3 = co!2 + 250 
lpfill dey ; 

sta col0,y 

sta coll,y 

sta co!2,y 

sta col3,y 

bne lpfill 

rts 



choose = * 
bitmap = $2000 

ldx #32 

ldy #0 

Ida #<bitmap 

sta selfmod+1 

Ida #>bitmap 

sta selfraod+2 ; 
lpchoose Ida random 

selfmod sta $ffff,y; 

iny 

bne lpchoose 

inc selfmod+2 

dez 

bne lpchoose ; 

rts 



crank up the noisy sid voice 

fill the color bytes 

the voters randomly choose a color 



max hi frequency 

noise waveform 

volume off and no output for voice 3 



foreground 6 (blue) and background 1 (white) 



note that this sets the zero flag 



32 pages of 256 bytes = 8192 



set up the address 

this isn't the real address 
count forward 
until .y wraps 



and repeat a total of 32 times 
and that's all 



campaign jsr getin 
beq campaign 
rts 



Listing 2: BASIC generator for the voters program 

KM 100 rem generator for "v.obj" 

F? 110 n$="v.obj": rem name of program 

FA 120nd=110: sa=49152: ch=14246 

(for lines 130-260, see the standard generator on page 5) 



OM 1000 

JA 1010 

NP 1020 

OC 1030 

KE 1040 

HF 1050 

AG 1060 

AF 1070 

BF 1080 

LH 1090 

OP 1100 

CJ 1110 

NN 1120 

JP 1130 



data 32, 13, 

data 192, 32, 

data 73, 32, 

data 73, 12, 

data 192, 32, 

data 169, 255, 

data 18, 212, 

data 160, 250, 

data 4, 153, 

data 241, 96, 

data 141, 92, 

data 173, 27, 

data 247, 238, 

data 32, 228, 



192, 32, 

13, 192, 

141, 17, 

141, 24, 

54, 192, 

141, 15, 

141, 24, 

136, 153, 

244, 5, 

162, 32, 

192, 169, 

212, 153, 

93, 192, 

255, 240, 



30, 192, 

96, 173, 

208, 173, 

208, 96, 

32, 74, 

212, 169, 

212, 96, 

0, 4, 

153, 238, 

160, 0, 

32, 141, 

255, 255, 

202, 208, 

251, 96 



32, 104 

17, 208 

24, 208 

32, 40 

192, 96 

128, 141 

169, 97 

153, 250 

6, 208 

169, 

93, 192 

200, 208 

241, 96 
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Keep-80 



Non-destructive windowing on the C128 



by Richard Ctircio 

The C128's 80-column Video Display Controller has features 
that can enhance our 80-column text screens. Two of these fea- 
tures, 4K of unused ram and a hardware 'block-copy', can be 
used to overcome a limitation of the WINDOW command: once 
a CI 28 window has been opened, whatever was under it is 
lost. By copying the 80-column screen to the unused area be- 
fore opening a window, recalling the saved screen 'closes' the 
window and restores the text and attributes over-written by it. 
This can give our CI 28 programs the look of more advanced 
(and more expensive) computers. 

The vdc and Keep-80 

The Video Display Controller (VDC) has its own 16K of RAM. 
This RAM does not appear in the CI 28 memory map, and can 
only be accessed through the vdc. Since 80 columns by 25 
rows require 2000 bytes, 2K bytes of VDC RAM are assigned to 
screen memory. A corresponding 2000 bytes are required by 
attribute memory, which is similar to the 40-column display's 
colour memory. The character definitions are also stored in 
vdc memory. Though only eight bytes are needed per charac- 
ter, each is padded out to 16 bytes for a total of 8K for both 
upper-case/graphics and lower/upper-case characters. This ac- 
counts for 12K of the 16K of vdc RAM, leaving 4K unused in 
normal circumstances. It is this unused memory that Keep-80 
uses to hold a copy of the text and attributes. However, there's 
more to a video display than the characters and colours. A 
number of locations in zero page and page three keep track of 
the screen or window dimensions, cursor position, the current 
colour, tab positions, 'linked* lines, etc. This information can 
collectively be referred to as the Editor Values; Keep-80 stores 
these in the unused area as well. 

How Keep-80 works 

When the 'store screen' command is issued, after testing for 
80-column mode, the routine moves the 40 bytes of editor val- 
ues from ram o to the unused 48 bytes at the top of 80-column 
screen memory. The VDC's copy feature is then used to move 
everything from $0000-$0FCF (beginning of screen to end of 
attributes), to the unused area, $1000-$1FCF. Instead of calcu- 
lating the number of pages and bytes to move, and invoking 
the copy mode the necessary number of times, Keep-80 uses a 
ROM routine that takes care of everything. The routine at 



SC53C in Screen Editor Rom is used for 80-column scrolling 
and line clearing. To use it, the vdc memory destination end 
address (plus one) is stored in ram locations $0A3C and 
S0A3D in low-high format. The destination start is stored in 
vdc registers $12-$13 in high-low format. The source start ad- 
dress is stored in VDC registers S20-S21, again in high-low for- 
mat. Setting bit 7 of register $18 tells the vdc that the next 
block operation will be a copy. JSR $C53C does the rest. It is 
a misnomer to call this operation a block-copy, however, be- 
cause the ROM routine invokes the vdc copy mode one byte at 
a time! Still, using this routine simplifies the programming 
somewhat, and any loss of speed is negligible, especially in fast 
mode, which should always be used in 80 columns anyway. 

There are two 48-byte areas still available, one at the top of 
the attributes area and one at the top of the unused area. Since 
Keep-80 already has code to move editor values to and from 
vdc ram, I have given it the ability to preserve two additional 
sets of editor values. In this way, your program can jump from 
window to window, perhaps using one to receive input and the 
other to display results. This feature can be made to function 
in 40 columns. Obviously, considerable confusion will result if 
80-column editor values are recalled to a 40-column screen. 

Usage 

Keep-80 can be called from basic or machine language. The 
CI 28 must be in the BANK 15 configuration. The accumulator 
holds the type of operation and X holds the direction, which is 
zero to save and non-zero to recall. If KEEP is the location of 
the routine, 

SYS keep, o, o 

saves the current 80-column screen. This should be done be- 
fore opening a window. If the current text mode is not 80 
columns, the processor carry bit is set and the routine returns. 
From BASIC, RREG,„SR will read the status register into the 
variable sr. If SR AND 1=1 THEN you know you made a mis- 
take. In assembler: 

Ida operation 
ldx direction 
jsr keep 
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You can then branch on the carry flag appropriately. To recall 
the saved screen: 

SYS keep, o, 1 

To save and recall only the editor values, the accumulator 
should hold a 1 for the first set or 2 for the second set. Values 
greater than 2 will also set the carry to signal an error. Direc- 
tion is as described above. 

The BASIC loader (Listing 2 at the end of this article) pokes the 
Keep-80 machine language into the applications area at loca- 
tion 4864. Kieep-80 can be located elsewhere by changing the 
variable KE in line 110. Other possible locations include the 
RS-232 buffers at 3072-3583, and the sprite definition area at 
3584-4096. After running the loader, it will print the range of 
memory the ML occupies. 

Modifications and demo 

If one of the 80-column character sets is unused, Keep-80 can 
be made to store another screen at that location. Keep+6 and 
keep+7 hold the starting and ending pages of the storage area. 
The normal contents of these locations are $10 and $1F. The 
values $20 and $2F in these locations will move storage to the 
upper-case/graphics character set. To use the lower/upper-case 
character set area for storage, poke KEEP+6 and KEEP+7 with 48 
and 63 ($30/$3F). These pokes should be performed only 
when one of the character sets is not used. (To regain the com- 
plete 80-column character set, use BANK 15: SYS 49191.) This 
modification makes Keep-80 compatible with D.J. Morriss* 
Twin-80 program (Transactor, Volume 8, Issue 3), since that 
program uses the normally-unused area for a second screen. 
Keep-80 only copies the default text and attributes locations 
($0000-$0FCF), and these pokes do not affect editor-only stor- 
age/retrieval. 

To save and recall 40-column editor values, Keep-80 can be 
entered beyond the test for 80 columns with SYS KEEP+8, A, X. 
Be certain that A is not zero in that case. With a little more 
work, the routine can store many more sets of editor values, 
but only if a complete screen will not be saved, or one of the 
character sets is unused. First, store the direction value in loca- 
tion 195 ($C3), then SYS or JSR keep+103 ('editsr' in the 
source listing) with A holding the high byte and Y the low byte 
of the vdc RAM location to be accessed. Each set of editor val- 
ues requires 40 bytes. 

When a second storage area is created in an unused character 
set, another 48 bytes at the top of that area are available for yet 
another set of editor values. Use the method described above 
to access $2FD0 for the upper-case/graphics area or $3FD0 for 
lower/upper-case. 

The demo program (Listing 3) assumes that Keep-80 is locat- 
ed at 4864. It uses colours that should be readable on a green 
screen. For amber monitors some adjustment of the COLOR 
statements will be necessary. The program creates a window 



on the left half of the screen and lists itself. Two cursor-ups 
compensate for the line feeds when the listing is completed. 
The editor values are saved and a window is opened on the 
right half. Because of CHR$(27)"R" (ESC-R), clearing the win- 
dow with a different COLOR 5 creates two different 'back- 
grounds'. This delineates the two windows. The program again 
lists itself, saves the right half editor values, then returns to the 
left half and continues the first listing where it left off. SLEEP 
slows things down for observation. The whole screen is saved 
and a window with a message is displayed. The Keep-80 pro- 
gram is then poked to create a second storage area at $2000- 
$2FCF, corresponding with the upper-case/graphics character 
set which is not used by the demo program due to print 
CHRS(14). Having created another storage area, the demo again 
saves the whole screen and displays another message window. 
When a key is pressed, the process is reversed, recalling the 
saved screens and thus restoring the characters covered up by 
the two windows. 

More free memory? 

Is there still more usable 80-column memory? What about the 
eight 'pad 1 bytes of each character definition? This amounts to 
2K per character set. Can this highly non-contiguous memory 
be put to use? Is it worth the trouble? 

We have seen the C-128 80-column capability used for hi-res 
graphics, its memory used as a RAM drive, the unused ram as 
a second screen and the application described here. What else 
can we do with the VDC and its memory? 

Listing 1: Keep-80.src 



A3 


1000 sys4Q00 


IG 


1010 ; 


MP 


1020 :power assembler (buddyl28) 


MH 


1030 ; 


LB 






AJ 


1050 ; 


JA 


1060 *= $1300 


EK 


1070 ; 


MN 


1080 .mem 


IL 


1090 ; 


NF 


1100 ;rom routines 


KM 


1110 ; 


EG 


1120 vrvdc = $cdca 


JB 


1130 rdvdc ■ $cdd8 


PB 


1140 vcopy = $c53c 


EP 


1150 ; 


BD 


1160 ;ram locations 


IA 


1170 ; 


NC 


1180 svars = SOOeO; start of screen variables 


PA 


1190 snaps = $0354; start of tab and link maps 


BC 


1200 pnt80 = $0a3c;end pointer for vcopy 


FK 


1210 ztemp = $c3;safe temporary location 


KD 


1220 ; 


EE 


1230 ; 


JL 


1240 keep bit $d7;test 80 columns 


OL 


1250 bmi ok80 


KF 


1260 err sec 


CO 


1270 rts 


GH 


1280 ; 


AH 


1290 spage .byte $10; start page of unused area 


OH 


1300 epage .byte $lf;end page 


EJ 


1310 ; 


IC 


1320 ok80 cmp |$03 


KK 


1330 bcs err 
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JF 1340 

FB 1350 

PG 1360 

OA 1370 

ND 1380 

£0 1390 

IK 1400 

IP 1410 

BP 1420 

MA 1430 

GF 1440 

HH 1450 

CF 1460 

PJ 1470 

KI 1480 

FF 1490 

EP 1500 

EB 1510 

PL 1520 

DB 1530 

GA 1540 

OJ 1550 

GA 1560 

NL 1570 

LD 1580 

MN 1590 

AO 1600 

GD 1610 

KM 1620 

AH 1630 

ON 1640 

IP 1650 

EB 1660 

EC 1670 

BH 1680 

NL 1690 



stx itemp; direction 

tay 

bne edda 

txa 

bne rscrn 

t 

.save whole screen 



DB 


1700 


GH 


1710 


AH 


1720 


FE 


1730 


NG 


1740 


HE 


1750 



AB 1760 

GD 1770 

KG 1780 

BD 1790 

GF 1800 

NM 1810 

NH 1820 

OD 1830 

CE 1840 

AL 1850 

AJ 1860 

EH 1870 

MJ 1880 

M: 1890 

MJ 1900 

HF 1910 

GP 1920 

LA 1930 

KP 1940 

JF 1950 

EJ 1960 

FI 1970 

PD I960 

CB 1990 

LI 2000 

HM 2010 

AN 2020 

EG 2030 

AD 2040 

HC 2050 

HM 2060 

EA 2070 

DP 2080 

HE 2090 

JF 2100 

JP 2110 



jsr rend; write editor values to $07d0 

i 

Ida #$d0; destination end+1 

ldx epage 

sta pnt80 

stx pnt80+l 

Ida spage;dest. start 

ldy #$00 

jsr addwr 

Ida #$60; source start=$0000 

tay 

setsrce ldx #$20 

jsr addwr+2 

setcopy ldx #$16 

jsr rdvdc+2 

ora #$80;bit 7=l=copy 

jsr wrvdc+2 

jsr vcopy;call rom routine 

clc:no errors 

rts 

I 

; recall whole screen 

r 

rscrn Ida #$d0;copy everything 

ldx #$0f;bac)c to $0000-$0fcf 

sta pnt80 

stx pnt80+l 

Ida #$00 

tay 

jsr addwr 

Ida spage; source is unused area 

ldy #$00 

jsr setsrce 

f 

rtnd Ida #$07;hi-byte of editor storage 
bne edsa 

edda Ida #$0f; store/recall editor values 

clc;at $0fd0 or $lfd0 

dey 

beq edsa 

adc #$10 

edsa ldy #$d0;lo-byte 

i 

; store/recall screen editor values 

editsr jsr addwr 
ldy #$la 

Ida ztenp; 0=store 
beq loop3 

I 

loopl jsr rdvdc 

sta svars,y 

dey 

bpl loopl 

ldy #$0d 

loop2 jsr rdvdc 

sta snaps. y 

dey 

bpl loop2 

rts 

loop3 Ida svars.y 

jsr wrvdc 

dey 

bpl loop3 

ldy #$0d 

loop4 Ida smaps,y 

jsr wrvdc 

dey 



BD 2120 bpl loop4 

OD 2130 rts 

CN 2140 ; 

DA 2150 ; routine to write to vdc address registers ($12/$13) 

AB 2160 ;or any other pair of registers 

EF 2170 ;a=first byte,y=next byte,x=first register 

KP 2180 ; 

LN 2190 addwr ldx #$12 

NG 2200 jsr wrvdc+2;here for other pairs 

JF 2210 tya 

II 2220 inx 

LK 2230 jap wrvdc+2 

MJ 2240 .end 

Listing 2: Keep-80 loader 



DF 100 rem *** keep-80 loader *** 














CL 110 ke=4864:rem relocating *** 














HN 120 ck=0 














IJ 130 readd:ck=ck+d:ifd=999thenl50 














NC 140 gotol30 














LH 150 ifck<>16817thenprint *** error 


in data «*":end 








ME 160 restore isa-xe 














DH 170 readd:ifd=999then220 














PP 180 ifd=>0thenpokesa,d:goto21Q 














AI 190 ad=ke+abs(d):h=ad/256:l=ad-int 


(ad/256) *256 




^ 




i 


CO 200 pokesa,l:sa=sa+l:pokesa,h 














FI 210 sa=sa+l:gotol70 














BP 220 print"keep-80 installed"ke"to" 


sa 












EJ 230 print"sys"ke"{left}, a, x" 














CE 240 print"a=0 for screen", "x=0 to 


save" 












EM 250 print"a=l for editor lV'x>0 to recall" 












NO 260 print"a=2 for editor 2" 














OA 270 end 














MI 280 : 














AE 290 data 36, 215, 48, 4, 56, 


96, 16, 


31, 


201, 


3, 


176, 


248 


OL 300 data 134, 195, 168, 208, 76, 


138, 208, 


45, 


32, 


-89, 


169, 


208 


NO 310 data 174, -7, 141, 60, 10, 


142, 61, 


10, 


173, 


■6, 


160, 





MK 320 data 32,-154, 169, 0, 168, 


162, 32, 


32, 


-156, 


162, 


24, 


32 


IJ 330 data 218, 205, 9, 128, 32, 


204, 205, 


32, 


60, 


197, 


24, 


96 


HK 340 data 169, 208, 162, 15, 141, 


60, 10, 


142, 


61, 


10, 


169, 





HF 350 data 168, 32,-154, 173, -6, 


160, 0, 


32, 


-45, 


169, 


7, 


208 


LB 360 data 8, 169, 15, 24, 136, 


240, 2, 


105, 


16, 


160, 


208, 


32 


BB 370 data -154, 160, 26, 165, 195, 


240, 21, 


32, 


216, 


205, 


153, 


224 


LE 380 data 0, 136, 16, 247, 160, 


13, 32, 


216, 


205, 


153, 


84, 


3 


CK 390 data 136, 16, 247, 96, 185, 


224, 0, 


32, 


202, 


205, 


136, 


16 


FL 400 data 247, 160, 13, 185, 84, 


3, 32, 


202, 


205, 


136, 


16, 


247 


BK 410 data 96, 162, 18, 32, 204, 


205, 152, 


232, 


76, 


204, 


205, 


999 



Listing 3: Keep-80 demo 

bankl5:keep=4864:rem start of ml 
pokekeep+6,16:pokekeep+7,31:rem storage 3 $1000-$lfcf 
graphic5 : color6 , 1 : color5, 12 

print"{home}{honie}{clr}"chr$(14}chr$(27)"r"; 

rem full-size reverse screen, lower/uppercase 

window0,0, 39,24, l;a=l:x=0;gosub280 

color5, 15:window40, 0,79,24, l:a=2:x=0:gosub280 

a=l:x=l:gosub290:list210- 

a=0:x=0:gosub290 

color5,l:windowi2, 7,37, 11,1 

color5,8 

printchr$(15)chr$(18)"{2 down}{3 right} your message here ";:sleepl 

pokekeep+6,dec("20 ,, );pokekeep+7,dec("2f") 

rem move storage to upper/graphics 

gosub290 :windowl9, 8, 43, 12, 1 ;printchr$ (143) ; 

print"{2 down){5 right} press any key ";:getkey a$ 

x=l:gosub290:sleep2 

pokekeep+6, 16 : pokekeep+7 , 31 : gosub290 : sleepl 

a=2:gosub290:list210- 

sys49191:end:regain char set 

list-200:print"{up}{up}"; 

sys keep,a,x:sleepl:return >■ 



EE 


100 


10 


110 


NK 


120 


KJ 


130 


DB 


135 


PE 


140 


PI 


150 


NF 


160 


AM 


170 


DE 


180 


PN 


190 


KN 


200 


CK 


210 


JB 


215 


PI 


220 


NG 


230 


MJ 


240 


MA 


250 


BA 


260 


JH 


270 


DH 


280 


KM 


290 
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KERNAL++ 



Add a DOS wedge to your C64 Kernal 



by William Coleman 



Kernal++ is a Kernal enhancement for your C64. It adds a 
built-in DOS wedge, auto-loading of BASIC or ML programs at 
power-up, additional screen editor commands, and several oth- 
er patches that make using the 64 easier. 

Dos commands 

The Dos Wedge intercepts the crunch vector ($O3O4-$0305), 
so program execution speed won't be affected. All wedge 
commands must start at the first position of a logical line. The 
following commands are supported: 

% Load an ml program (same as ,8,1). The end of program 
pointers are not modified, so you can load ML without affect- 
ing basic. However, for this reason, don't try to load a BASIC 
program with this command. 

/ Load a basic program. 

Load and run a basic program. 



Save a BASIC program. 



= Verify the program in memory with a file on the disk. 

# Display a sequential file on the screen. The RUN/STOP key 
will abort the display. No character checking is done; cursor 
commands and colour changes will print, so be careful what 
you try to display. Only SEQ files will work, though you can of 
course modify the code to display other types. 

All of the above commands have the same syntax: %file- 
name. You don't need quotes. However, if you list a directory 
and place one of these characters in the first position of a line 
with a filename on it, the command will execute properly. 

The following commands all begin with 4 @\ You can also use 
V instead if you prefer. 

@ Read error channel. 



#4) to 9. To use device 10, enter @:, and for drive 1 1 , @; (this 
works for most DOS wedges by the way). 

@$ Displays the disk directory. The RUN/STOP key will abort. 

@<disk command> Send a command to the drive, e.g. 
@sO:filename. 



<5>£ Toggle the write protect status of the disk. If you use this 
command and then try to write to the disk you'll get a DOS 
MISMATCH error. Executing it a second time will return the 
disk to normal. If you list the directory of a protected disk, the 
Version String (just after the disk name) will read *2e' instead 
of '2a'. The routine used is based on one by William Fossett. 
For more information see Transactor, Volume 7, Issue 4. 

<6>Q Quit wedge. To re-enable, use SYS 65526. 

The '!' commands 

The commands in this group of basic enhancements are pre- 
ceded by T: 

!d Restore default screen colours. This command will set the 
screen colours to the power-up configuration, currently a black 
background with light green text in lower case. You can mod- 
ify the color subroutine in the source code to your own 
favourites. This subroutine also pokes the value 128 into loca- 
tion 650, which will make all keys repeat. 

!<number> Set background and border colours. Use the same 
number you would use if you were poking locations SD020 and 
SD021 directly. 

!* Un-new BASIC. If you accidentally enter new (or hit a reset 
button), this restores your BASIC program. It's also handy if 
you inadvertently load a basic program with the '%' com- 
mand. Just use this command to set the pointers properly. 

Screen editing 



@#<number> Change the drive number the wedge accesses. Several new Screen Editor commands have been added. All 
The number can be from 4 (yes it's possible to have a drive are activated by pressing the CTRL key at the same time as the 
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key listed. They can also be used from within a program by 
using the CHR$() code given. 

INST/DEL - CHR$<23): Toggles quote mode on and off. Can- 
celling quote mode will also cancel insert mode if that is 
active. 



The commands added to the screen editor are patched into the 
print-to-screen routine. Commercial programs that may use the 
new CHR$() values as commands (CTRL-U for example) won't 
try to print them, so there shouldn't be any interference. 

Learn how to burn! 



CLR/HOME CHR$(22): Homes the cursor to the bottom of the 
screen. 

RETURN CHR$(2l): Clears the line that the cursor is on from 
the cursor to the end of the line. 

VERT. CURSOR CHR$<25>: Clears the screen from the cursor to 
the bottom of the screen. 

HORIZ. CURSOR CHR$<26): Clears the screen from the line the 
cursor is on to the top of the screen. 

Other goodies 

Several other patches are included to enhance the Kernal's 
operation or change the standard defaults: 

The default load device is now 8. LOAD "0:filename" will 
load from the disk instead of the cassette. 

The default OPEN device is now 4 with a secondary address of 
7. Open 4 now behaves like OPEN 4,4,7- These two defaults 
can of course be changed to suit your needs. 

Pressing shift and run/stop together will generate <RE- 
TURN> run <RETURN>. The logo key and run/stop will gen- 
erate load "0:*",8,1 without a return. Ctrl and run/stop 
will generate LOAD "0:*" without a return. 

The screen will not scroll while the SHIFT (or shift LOCK) key 
is depressed. This is handy when listing BASIC programs. 

Holding down the CTRL key while turning on the computer (or 
hitting the reset button, if you have one) will load the first pro- 
gram on your disk (same as %0:?*). This is a handy option 
for booting games and other programs that have an auto- 
loader. 



You will need access to an EPROM burner to install these addi- 
tions, either a commercial model like the Promenade or a 
home-built model like the one I use, which was featured in 
Transactor, Volume 7, Issue 4. The source code at the end of 
this article was written for the Abacus assembler, but should 
work with PAL with only minor changes. 

To make the file that will be burned onto the EPROM, do the 
following: 

1) Load your assembler and monitor. Don't run them (my 
monitor interferes with my assembler, that's why I do it this 
way). 

2) Load in the source code and run it. The first thing it will 
do is copy BASIC and the Kernal into RAM. This is done from 
BASIC, so be patient! If you're not using a PAL-compatible as- 
sembler (LADS, for instance), you'll have to do this by hand. 
Do not flip out the ROMs yet. 

3) When the assembly is finished, enter your monitor and 
transfer $E000-$FFFF to $3000 (exactly where isn't critical, 
$2000 would do just as well). Change the contents of memory 
location 01 to 53 ($35). If you forget, and the ROM isn't 
switched out, you won't see many improvements when you in- 
stall the new Kernal! The 'standard' transfer command is: 

T E000 FFFF 3000 



4) Now 
$5000: 



use 



Ihe monitor to save memory from $3000 to 



S 3000 5000 "filename" 08 



or possibly: 



S "filename" 08 3000 5000 



Holding down the SHIFT key while turning on the computer 
will load the first program on the disk and RUN it (same as 
TO:?*). 

Where's the beef? 

The wedge is installed where the cassette routines used to be. 
To prevent crashes, device #1 is patched out - if you try to ac- 
cess it you will receive an ILLEGAL device error. Because of 
where the routines are placed, these improvements should be 
100 per cent compatible with commercial programs, although 
you may have to disable the wedge with @Q before loading 
them in. 



Read the documentation that came with your monitor for the 
proper syntax. 

While you have the new Kernal in ram, you may as well test 
it. Hit run-stop/restore, and enter poke 1,53 then SYS 
65526. All of the options should work (except the autoboot of 
course). 

Now burn the file you just saved in accordance with the in- 
structions that came with your EPROM burner. As far as chips 
go, you have two choices: 2764s or the MCM68764. The for- 
mer is the cheapest ($6.95, Radio Shack #276-1251), but it's a 
28-pin chip so you'll need to build an adapter. The MCM68764 
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is more expensive (about $16), but it's pin-for-pin compatible 
with the Kernal chip (2364). By the way, BASIC and 1541 
ROMs are the same type as the Kernal. 

If you don't have access to an eprom burner, you can still use 
the program, either by using the BASIC loader (Listing 2), or by 
making a file as explained above, using a disk doctor to 
change the load address to $EOO0, and booting with the fol- 
lowing program (a faster solution would be to write it in ml). 

1 x=x+l:if x=l then load"kernal++", 8, 1 

2 fori=40960 to 49151:pokei,peek(i) :next 

3 pokel,53:sys65526:end 

Making your own improvements 

The wedge occupies memory from SF72C to $FA80. The cas- 
sette routines run through $FCE7, so there's plenty of room 
left for further improvments. There are also a few shorter seg- 
ments in the original ROM code (mostly tape routines) that can 
be re-used. You might even be able to squeeze in a mini- 
monitor (very mini)! The possible improvements are limited 
only by your imagination! ' 

Listing 1: Kernal++.src 

HO 1000 gotol055 

00 1005 openl5,8 ( 15/ , s0:kernal++.src ,, :clo3el5:save ,, 0:kernal++.src",8:end 

IG 



m 

DK 
CG 
CA 
PM 
GP 
LI 
KL 
FP 



1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 



KERNAL++ V1.0 (C) 14 JUNE 87 

'William Coleman 1431 Pacetti Rd 

aka Green Cove Spgs 

'Master Blaster Florida 32043 



these 2 lines copy the roms into ram 
for i=57344 to 65535 :pokei, peek (i) :next 
for i=40960 to 49151 :pokei,peek (i) :next 



Bfi 1065 sys32768 



.opt 00 

.page 65 

i above is for abacus assembler, for pal, use sys 700, delete .page lin^ K 

t 

; *** kernal equates *** 



GJ 1070 

KM 1075 

CK 1080 

Dl 1085 

GO 1090 

NL 1095 ; 

FH 1100 second = $ff 93 

JK 1105 tksa = $£f 96 

10 1110 acptr = $ffa5 

JkB 1115 ciout = $ffa8 

01 1120 untalk = $£fab 

HG 1125 unlsn = $ffae 

PC 1130 listen = §ffbl 

DK 1135 talk = $ffb4 

PF 1140 readst = $ffb7 

JK 1145 open = $f3d5 

KH 1150 close = $£642 

KK 1155 chrout = $ffd2 
1160 load ■ $f49e 
1165 stop = Sffel 
1170 clall = $ffe7 



EM 
IL 
HA 
NA 
QG 



1175 ; 

1180 ; *** other equates *** 
SB 1185 ; 

PF 1190 basinit = Se3bf ; initialize basic 

EE 1195 basmsg = $e422; pover-up message 

FA 1200 vecp3 = $e453; restore pg 3 vectors 

GC 1205 setpnts = Se56c; set charout pntrs 



BL 


1210 chardone ■ $e6a8; 


exit 4 screen charout 


OC 


1215 chkcodes = $e72a; 


charout (after patch) 


FI 


1220 clrline = $e9ff; 


clear screenline 


EL 


1225 upordown = $ec44; 


chk for case change 


GM 


1230 save = $el59 




AA 


1235 border = $dQ20 




AJ 


1240 backrnd = $d021 




GC 


1245 ciapra = SdcOO 




PC 


1250 ciaprb = SdcOl 




OD 


1255 outnum = $bdcd; 


print integer 


KA 


1260 strout = Sable; 


outputs a string 


HA 


1265 newstt = $a7ae; 


set up statement 


HA 


1270 rune = $a68e; 


set up for run 


KE 


1275 clear = $a659; 


clear basic 


FJ 


1280 crunch = $a57c; 


tokenize line 


PC 


1285 link = $a533; 


relink basic 


HH 


1290 crvec = $0304; 


crunch vector 


GD 


1295 spekey = $028d; 


ctrl r shift, or c= 


FH 


1300 repeat = $028a; 


keybrd repeat flag 


AF 


1305 inbuf = $0200; 


input buffer 


EJ 


1310 ; 




EL 


1315 ; *** zero page equates *** 


OJ 


1320 ; 




CO 


1325 cpnt = $f3; 


pntr to color mem 


EA 


1330 llynx = $d9; 


line link table 


CH 


1335 insert = $d8; 


>0 = insert mode 


MK 


1340 row = $d6; 


cursor row (0-24) 


DD 


1345 lmax ■ $d5; 


max chars in line 


DE 


1350 quote = $d4; 


>0 = quote mode 


LB 


1355 column = $d3; 


cursor column 


DE 


1360 rpnt = $dl; 


pntr to video matrix 


KC 


1365 keyent = $c6; 


keybrd buffer count 


BO 


1370 wejdev = $be; 


wedge device i 


PP 


1375 fname = $bb 




FA 


1380 device = $ba; 


current device 


GJ 


1385 snd = $b9; 


secondary addr 


AD 


1390 length = $b7; 


length of filename 


EJ 


1395 eal = $ae; 


end of load 


GH 


1400 kflag = $9d; 


kernal message flag 


NA 


1405 st = $90 




NI 


1410 txtptr = $7a 




EP 


1415 sov = $2d; 


start of variables 


DM 


1420 sob = $2b; 


start of basic 


PF 


1425 misc = $22 




HH 


1430 flag = $02; 


flag for autoboot 


BB 


1435 ; 




GO 


1440 ctrlret = 21; 


ctrl-return 


GL 


1445 ctrlhm = 22; 


Ctrl-home 


LN 


1450 ctrlins = 23; 


ctrl-ins/del 


GH 


1455 ctrlvcr = 25; 


ctrl-vert cursor 


OG 


1460 ctrlhcr = 26; 


ctrl-hori cursor 


T IV 

ED 


1470 ; 




DI 


1475 ; — patches default device f — 


0D 


1480 ; 




CE 


1485 *= Selda 




MI 


1490 .byte 8; load"file" = load"file n ,8 


EP 


1495 *= $e228 




AH 


1500 .byte 4; open4 = 


open4,4,7 


KD 


1505 ldy 17 




MF 


1510 ; 




CH 


1515 ; — patches vector table -- 


GG 


1520 ; 




EE 


1525 *= $e44b 




NL 


1530 .word wedge 




FH 


1535 ; 




FI 


1540 ; — modify power 


up message -- 


PH 


1545 ; 




BE 


1550 *= $e488 




GH 


1555 .asc "KernalH V1.0 " 


01 


1560 ; 




KM 


1565 ; - text for load 




IJ 


1570 ; 




EH 


1575 *= $e4b7 




HE 


1580 loadtxt .asc "load 


■ 


OP 


1585 .byte 34 




GB 


1590 .asc "0:*" 
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IA 1595 .byte 34 

MB 1600 .asc \8,r 

LL 1605 ; 

HM 1610 ; — patch to for stop keys - 

FM 1615 ; 

EN 1620 *= Se5ea 

DC 1625 jmp onekeys 

HC 1630 nop 

EL 1635 ldx 15 

ON 1640 ; 

LK 1645 ; -- patch to print routine - 

10 1650 ; 

CJ 1655 *= Se725 

CD 1660 jmp chkquote 

KZ 1665 nop 

FE 1670 nop 

MM 1675 *= $e7dl 

LF 1680 jmp newcodes 

LA 1685 ; 

;: 1690 *= $e962 

MO 1695 jmp wait 

KB 1700 ; 

JD 1705 ; - patch to Ctrl table -- 

EC 1710 ; 

AO 1715 *= $ec42 

MJ 1720 .byte $84 

LA 1725 *= $ec78 

JN 1730 .byte ctrlins,ctrlret,ctrlhcr 

NE 1735 *= $ec7f 

DJ 1740 .byte ctrlvcr 

FG 1745 *= Secab 

JE 1750 .byte ctrlhm 

GE 1755 *= $ecb7 

FM 1760 .byte $85 

LF 1765 ; 

ML 1770 ; - patch shift-run/stop - 

FG 1775 ; 

IG 1780 *= $ece7 

ML 1785 .byte 13 

CK 1790 .asc "run" 

GM 1795 .byte 13 

OH 1800 ; 

HE 1805 ; -- patch out cassette -- 

11 1810 ; 

MJ 1815 *= $f2ce 

KC 1820 jmp $f271 

LH 1825 *= $f38b 

NC 1830 jmp $f713 

GF 1835 *= $f539 

HD 1840 jmp $£713 

II 1845 *= $f65a 

DA 1850 nop 

IA 1855 nop 

KL 1860 ; 

BH 1865 ; -- do stop keys - 

EM 1870 ; 

KL 1875 «= $£65£ 

EK 1860 onekeys cmp #$83; shifted 

HF 1885 bne okl 

DM 1890 jmp $e5ee 

EB 1895 okl cmp #$84; c= key 

JG 1900 bne ok2 

DF 1905 ldx #13 

AI 1910 bne stickit; always 

LC 1915 ok2 cmp #$85; Ctrl key 

AI 1920 bne ok3 

ON 1925 ldx #9 

MA 1930 stickit sei 

DH 1935 stx keycnt 

AM 1940 okloop Ida loadtxt-l,x 

LM 1945 sta $0276, x 

FF 1950 dex 



JB 1955 bne okloop 




AA 1960 jmp $e5cd 




BF 1965 ok3 jmp $e5fe 




IC 1970 ; 




HA 1975 ; -- activates we 


dge -- 


CD 1980 ; 




FB 1985 *= $£72c 




II 1990 wedgeon jsr vecp3 




OA 1995 Ida #$08 




GD 2000 sta wejdev 




BM 2005 rts 




AF 2010 ; 




FF 2015 ; 




OA 2020 ; -- wedge proper 


— 


PF 2025 ; 




NP 2030 wedge ldx txtptr; 


if not input buffer 


BF 2035 bne doreg; 


then crunch 


EF 2040 cmp #T 




JI 2045 beq doat 




IF 2050 cmp #"> n 




DJ 2055 beq doat 




m 2060 cmp #"_" 




GE 2065 beq dosave 




OL 2070 wdge cmp #"V; 


entry from autoboot 


LK 2075 beq doml 




GN 2080 cmp §"*" 




HF 2085 beq doload 




DF 2090 cmp #"/" 




BG 2095 beq doload 




HI 2100 cmp #"=" 




LG 2105 beq doload 




ND 2110 cmp #'T 




II 2115 beq jdobas 




NE 2120 asp #T 




EL 2125 beq seq 




CF 2130 doreg jmp crunch; 


normal crunching 


NM 2135 ; 




HB 2140 jdobas jmp dobas; 


springboard 


HN 2145 ; 




MJ 2150 ; — save routine 


I ^ m ^ m 


BO 2155 ; 




PE 2160 dosave jsr setup; 


set up file params 


ID 2165 jsr save; 


save program 


EC 2170 frmseq jsr prntret; print return 


01 2175 jmp disperr; 


display error chan. 


KP 2180 ; 




LD 2185 ; -- set up for load ~ 


EA 2190 ; 




FH 2195 doml Ida #1 




DH 2200 .byte $2c 




BL 2205 doload Ida #0 




OH 2210 jmp loadit 




NB 2215 ; 




AO 2220 ; -- read seq file -- 


HC 2225 ; 




PB 2230 seq Ida inbuf+1 




HJ 2235 beq done; 


exit if just # 


OL 2240 jsr setup; 


set up file parameters 


LL 2245 ldy length; 


length of filename 


KK 2250 iny 




KK 2255 Ida fV 




CC 2260 sta inbuf.y 




BE 2265 iny; 


add two 


OC 2270 Ida #"s" 




CA 2275 sta inbuf.y; 


append ' ,s' 


HH 2280 sty length; 


save new length 


JA 2285 jsr yoohoo; 


tell drive to talk 


EE 2290 Ida #25; 


ctrl-return 


PA 2295 jsr chrout; 


clear to bottom 


EG 2300 seql Ida st 




JK 2305 bne sqout; 


exit if st set 


LG 2310 jsr stop 




LD 2315 beq sqout; 


also check stop key 


PJ 2320 jsr acptr; 


get a byte 


AI 2325 jsr chrout; 


and print it 


PL 2330 jmp seql; 


loop back 


FJ 2335 ; 
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DL 2340 sqout jsr close; close file 
DJ 2345 jmp frmseq; exit 

EK 2350 ; 

2355 ; — parse 8 commands -- 

2360 ; 

2365 doat jsr setup; set up file parameters 

2370 Ida inbuf+1 



FH 
OK 
IA 
GN 
NN 
BF 



2375 beq jdisperr; just 8 

2380 cmp #"#" 

BJ 2385 beq chgdev 

FO 2390 cmp #"q" 

IB 2395 beq quit 

IG 2400 cap #"$" 

IH 2405 beq dir 

KB 2410 cmp #"\" 

NC 2415 beq jwprot 

KO 2420 ; 

KI 2425'; — send string to error channel -- 

EP 2430 ; 

IO 2435 jsr hello; make drive listen 

DN 2440 ldy HO 

KF 2445 daloop Ida inbuf+1, y; send string 

ND 2450 jsr ciout; to drive 

HH 2455 iny 

DO 2460 cpy length 

IP 2465 bne daloop 

KO 2470 jsr unlsn 

Jl 2475 done jmp bye 

AD 2480 jdisperr jmp disperr; read error chan. 



LC 2485 ; 




HC 2490 jwprot beq wprot; 


springboard 


FD 2495 ; 




Gfl 2500 ; - disable wedgi 


5 — 


PD 2505 ; 




IB 2510 quit Ida #<crunch 


; restore default 


KI 2515 sta crvec 


; crunch vector 


JI 2520 Ida #>crunch 




KK 2525 sta crvec+1 




IF 2530 ; 




HO 2535 ; — change wedge 


device — 


CG 2540 ; 




MN 2545 chgdev Ida inbuf+2 


JA 2550 and f$0f 




BG 2555 sta wejdev 




GH 2560 ; 




BC 2565 ; — common exit 


point — 


AI 2570 ; 




FB 2575 bye jsr $a67a; 


part of clear 


KP 2580 jmp $a47b; 


main basic loop 


PI 2585 ; 




AB 2590 ; — list directory to screen — 


JJ 2595 ; 




FI 2600 dir jsr yoohoo; 


make drive talk 


KG 2605 Ida 13 


load addr, link r blocks 


DF 2610 linein sta $9c 




JB 2615 suk jsr acptr; 


get byte from drive 


IH 2620 sta $9e; 


store 


LB 2625 jsr acptr; 


get another 


OP 2630 sta $9f; 


store it too 


KA 2635 ldx st 




ED 2640 bne ddone; 


check st 


PM 2645 dec $9c; 


loop to read in 


KF 2650 bne suk; 


$9c pairs 


GE 2655 ldx $9e; 


print decimal 


KD 2660 ldy $9f; 


number, i.e. 


BL 2665 jsr outnum; 


number of blks 


DK 2670 Ida #* ■ 




GG 2675 jsr chrout; 


print space 



IK 2680 dloop jsr acptr; get a byte 

KA 2685 beq endline; loop till zero 

JF 2690 jsr chrout 

HJ 2695 jmp dloop 

NM 2700 endline jsr prntret 

BC 2705 jsr stop; check stop key 

AM 2710 beq ddone 



(eol) 



KI 2715 Ida 12 

OP 2720 bne linein; link.blocks 

HP 2725 ddone jsr close 

IC 2730 jmp bye 

FC 2735 ; 

DF 2740 prntret Ida #13 

JB 2745 jmp chrout; print return 

ED 2750 ; 

GM 2755 ; -- write (un)protect disk -- 

OD 2760 ; 

JH 2765 ; this routine sends to commands to the 

GN 2770 ; drive, the first writes some code and 

NN 2775 ; the second one executes that code. 

CF 2780 ; 

DL 2785 wprot jsr hello 

BD 2790 ldy #0 

1M 2795 wloop Ida protstr,y 

PC 2800 jsr ciout 

FN 2805 iny 

AP 2810 cpy #31 

JO 2815 bne wloop 

IE 2820 jsr unlsn 

DB 2825 jsr hello 

JF 2830 ldy #0 

I J 2835 wloop2 Ida exestr,y 

HF 2840 jsr ciout 

NP 2845 iny 

JI 2850 cpy #5 

FB 2855 bne wloop2 

AH 2860 jsr unlsn 

KN 2865 jmp disperr 

MK 2870 ; 

BD 2875 ; these two commands are sent to the 

LO 2880 ; drive, the first is a memory write 

FM 2885 ; and the second is a memory execute 

AM 2890 ; 

HH 2895 protstr .asc "m-w"; m-w 00 06 25 

JP 2900 .word $0600 

HC 2905 .byte 25 

DI 2910 jsr $d042; load bam 

BH 2915 Ida $0702; get dos version 

KM 2920 eor #4; a to e/e to a 

NO 2925 sta $0702; store it back 

IG 2930 sta $07a6; directory (2a/e) 

HG 2935 Ida #$41; make sure drive 

KL 2940 sta $0101; will write 

LH 2945 jsr $ef07; bam to disk 

KL 2950 jmp $d042; reread bam and exit 

BA 2955 ; 

DB 2960 exestr .asc "m-e n ; m-e 00 06 

KD 2965 .word $0600 

AB 2970 ; 

AH 2975 ; - load routine % / A = - 

KB 2980 ; 

KN 2985 loadit sta snd 

MK 2990 jsr setup; set up file parameters 

OC 2995 ldx sob 

EC 3000 ldy sob+1; get start of basic 

MH 3005 Ida inbuf; if verify then 

JG 3010 cmp #"="; accum > 

ED 3015 beq ver 

HL 3020 Ida #0 

DI 3025 ver jsr load; load program 

KF 3030 bcs lbad; branch on error 

OD 3035 Ida st 

IM 3040 and #$10 

JL 3045 bne lbad2; branch on st 

HJ 3050 Ida inbuf 

KP 3055 cmp #"%" 

EM 3060 beq ldone; if ml load then done 

KA 3065 Ida eal 

HJ 3070 sta sov 

PO 3075 Ida eal+1 

LL 3080 sta sov+1; set end of load pntrs 
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NE 3085 

BO 3090 

BI 3095 

JM 3100 

HN 3105 

KD 3110 

GB 3115 

CL 3120 

AC 3125 

OF 3130 

FL 3135 

FL 3140 

PP 3145 

EC 3150 

OC 3155 

BG 3160 

ID 3165 

EM 3130 

EC 3175 

MC 3180 

EI 3185 

MO 3190 

NB 3195 

GP 3200 

OB 3205 

KA 3210 

FN 3215 

JP 3220 

DA 3225 

EB 3230 

MB 3235 

MN 3240 

IG 3245 

ML 3250 

IK 3255 

BA 3260 

HP 3265 

MD 3270 

KJ 3275 

AL 3280 

MD 3285 

CF 3290 

NP 3295 

JP 3300 

HC 3305 

EG 3310 

BF 3315 

IN 3320 

JN 3325 

NK 3330 

NP 3335 



jsr clear; 
jsr link; 
jsr rune; 
Ida inbuf 
cap #" A " 
bne ldone; 
Ida 10 
sta Jtflag; 
sta inbuf 
jap newstt; 



reset remaining pntrs 
re-link program 
partial clear 



if not A then done 



suppress kernal mess. 



execute next statement 



lbad tax 

bne lfini 

ldx |$le 

.byte $2c 

lbad2 ldx #$lc 

.byte $2fc 

ldone ldx #$80; no error 

Ida |$f£ 

sta S3a: set direct mode 

lfini jmp ($0300) 

> 

; — parse command string -- 

; this routine set length and addr 

; parameters of filename in buffer. 

; 4 "filename" will become 

; %filenamelname 
; this AAAAA will be ignored 



filename at $0201 



NB 


3340 


AO 


3345 


OH 


3350 


HA 


3355 


GJ 


3360 


fvl 


3365 



parse ldy #$02 

sty fname+1 

dey 

sty fname; 

dey; now zero 

ploopl Ida inbuf +l,y 

beq pdone 

cmpi$22 

beq quot 

iny 

bpl ploopl 

quot ldx #0 

pmove Ida inbuf+2,y; shift string to 

sta inbuf+l,x; start of buffer. 

beq x2y; no trailing quote 

emp #$22 

beq x2y 

iny 

inx 

cpx #$25 

bne pmove 

x2y txa 

tay 

pdone sty length 

rts 

/ 

; -- display error channel — 



AK 3370 

HE 3375 

NF 3380 

EP 3385 

NL 3390 

PP 3395 

ID 3400 

EC 3405 

NB 3410 

IP 3415 

PL 3420 

EO 3425 

PJ 3430 

MO 3435 

GO 3440 

NL 3445 

AP 3450 ; 

KH 3455 hello Ida device 

IG 3460 jsr listen 



$60+0f 



disperr jsr clrst 
Ida device 
jsr talk 
Ida HOllOllll; 
jsr tksa 

errloop jsr acptr 
jsr chrout 
emp #13 
beq errdone 
Ida st 
beq errloop 
errdone jsr untalk 
jbye jmp bye 



— make disk listen -- 



IA 3465 Ida #%01101111; 


$60+0f 


HH 3470 jmp second 




JA 3475 ; 




MB 3480 ; — make drive talk -- 


DB 3485 ; 




HP 3490 yoohoo Ida #%01100000; $60+0 


BF 3495 sta snd; 


2ndary addr 


IE 3500 jsr open; 


open channel 


KM 3505 Ida device 




ON 3510 jsr talk; 


make drive talk 


ON 3515 Ida snd 




BL 3520 jmp tksa; 


2ndary addr 


LD 3525 ; 




NM 3530 ; — setup for drive routines -- 


FE 3535 ; 




EH 3540 setup jsr parse; parse filename 


&A 3545 Ida wejdev 




DJ 3550 sta device; 


set drive # 


HL 3555 clrst Ida #0 




AD 3560 sta st; 


clear status 


JH 3565 rts 




IG 3570 ; 




PI 3575 ; -- parse ! routines — 


CH 3580 ; 




BM 3585 dobas Ida inbuf+1 


KD 3590 beq jbye; 


just ! 


DH 3595 emp #"d" 




CE 3600 beq default 




PC 3605 cap #"*" 




II 3610 beq unnew 




LE 3615 cap #"0" 




KG 3620 bee jbye 




JH 3625 emp #"<" 




EL 3630 bes jbye 




NK 3635 sta border 




PC 3640 ldy inbuf+2 




KH 3645 beq scolor 




IL 3650 clc 




OP 3655 tya 




11 3660 adc #10 




LM 3665 sta border 




LE 3670 scolor sta backrnd 


JN 3675 jmp bye 




GN 3680 ; 




LG 3685 default jsr color 


IO 3690 jmp bye 




FO 3695 ; 




FE 3700 ; -- unnew basic — 


PO 3705 ; 




00 3710 unnew Ida #1 




CF 3715 tay 




EI 3720 sta (sob),y; 


set first link 


MF 3725 jsr link; 


re-link program 


ON 3730 Ida misc 




10 3735 sta sov; 


link provides the 


ID 3740 Ida misc+1; 


end of program. 


CB 3745 sta sov+1; 


just move it. 


LB 3750 jsr clear 




JC 3755 jmp bye 




GC 3760 ; 




NO 3765 ; — set default screen colors — 


AA 3770 ; — modify to suit your taste -- 


FD 3775 ; 




CF 3780 color Ida #$80 




GJ 3785 sta repeat; 


make all keys repeat 


FF 3790 Ida #0; 


backround 


NE 3795 sta border 




DI 3800 nop; 


you can insert a 


AF 3805 nop; 


a Ida #xx here. 


MP 3810 sta backrnd 




BI 3815 Ida #153; 


char color 


DM 3820 jsr chrout 




FJ 3825 Ida #14; 


lowercase 


DL 3830 jap chrout 




BH 3835 ; 
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; — check for autoboot — 

i 

autoboot jsr wedgeon 

jsr basinit; initialize basic 

jsr color 

jsr basmsg; power up message 



init load type flag 



if shift key 

if ctrl key 
always if no match 
flag now zero 



tranfer "0:?*" 
to input buffer. 

parse buffer 



use the wedge 
to load program, 
to basic 



BD 3840 

LH 3845 

BM 3850 

KN 3855 

OG 3860 

CN 3865 

EJ 3870 

BN 3875 

DL 3880 

KB 3885 

FP 3890 

OH 3895 

OG 3900 

OF 3905 

OH 3910 

X 3915 

GF 3920 

OB 3925 

MI 3930 

MH 3935 

MO 3940 

EJ 3945 

JE 3950 

OF 3955 

IP 3960 

CK 3965 

CK 3970 

IP 3975 

HG 3980 

AF 3985 

JC 3990 

HA 3995 

IN 4000 

OP 4005 

OJ 4010 

FC 4015 ; 

AH 4020 ; — power up default colors -- 

PC 4025 ; 

JB 4030 

AI 4035 

OD 4040 

DA 4045 

IE 4050 

MJ 4055 

FB 4060 

PN 4065 

ID 4070 

BA 4075 

LH 4080 

DA 4085 

II 4090 

LO 4095 

KH 4100 

FG 4105 

EI 4110 

BF 4115 

DC 4120 

JL 4125 

GO 4130 

NN 4135 

JK 4140 

IF 4145 

OA 4150 

HF 4155 

GN 4160 

FG 4165 

PK 4170 

AG 4175 

HL 4180 

OB 4185 



ldx #251 

txs; clear stack 
Ida II 
sta flag; 
Ida spckey 
cmptl 
beq autol; 
cmp ${ 
beq auto2; 
bne fin; ■ 
autol lsr flag: 
auto2 jsr clall 
ldy #$ff 
bootl iny; 
Ida star,y; 
sta inbuf+l,y 
bne bootl 
jsr parse; 
Ida flag 
bne mlload 
Ida #" An 
.byte $2c 
mlload Ida ft" 
sta inbuf; 
jmp wdge; 
fini jmp $e386; 
star .asc "0:?*" 
.byte 



setclr jsr color 
($a002) 



; -- stop scroll if shift -- 



wait sta $ac 

sei 

wl Ida #$fd 

sta ciapra 

Ida ciaprb 

cmp ftOUlllll 

beq wl; 

cli 

rts 



loop if shift 



; -- quote toggle - 

chkquote bpl chkq; 
jmp $e7d4; 
chkq cmp fctrlins; 
beq qtog; 
jmp chkcodes; 
qtog Ida insert; 
beq tryq; 
qoff Ida 10 
sta insert; 
sta quote; 
beq qdone; 
tryq Ida quote; 
bne qoff; 
inc quote; 
qdone jmp chardone 



part of reg kernal 

key > 128 

"ctrl-ins pressed? 

yep 

nope 

"insert mode? 

nope 

clear insert 
clear quote 
always 
"quote mode? 
yep, clear it 
nope, set it 



EN 4190 

JE 4195 

ON 4200 

MP 4205 

AG 4210 

EN 4215 

HM 4220 

EC 4225 

DH 4230 

CB 4235 

DF 4240 

MI 4245 

AB 4250 

DF 4255 

KB 4260 

AL 4265 

NM 4270 

HK 4275 

DA 4280 

NJ 4285 

JK 4290 

HH 4295 

KL 4300 

PI 4305 

ME 4310 

BA 4315 

GF 4320 

CC 4325 

BN 4330 

EH 4335 

NN 4340 

PG 4345 

HD 4350 

JH 4355 

AN 4360 

GE 4365 

NN 4370 

DO 4375 

LN 4380 

EP 4385 

LK 4390 

MJ 4395 

JN 4400 

NI 4405 

MH 4410 

GD 4415 

KC 4420 

PL 4425 

JK 4430 

JM 4435 

PB 4440 

PO 4445 

BC 4450 

KD 4455 

BP 4460 

CO 4465 

BE 4470 

EG 4475 

JA 4480 

LP 4485 

LD 4490 

FA 4495 

IE 4500 

MB 4505 

GC 4510 

HK 4515 

AO 4520 

FB 4525 

IC 4530 

NK 4535 

CD 4540 

LN 4545 

NG 4550 

BE 4555 

GE 4560 

BL 4565 



; — parse new ctrl codes — 

i 

newcodes cmp Ictrlret 

beq clr2eol 

cmp fctrlhm 

beq bothome 

cmp fctrlvcr 

beq clr2bot 

cmp Ictrlhcr 

beq clr2top 

jmp upordown; check for case change 

; — clear to end of line — 

■ 

clr2eol Ida #$20; put a space 
sta (rpnt),y; in video matrix 



put backround color 
in color memory 

check for eol 



Ida backrnd; 

sta (cpntj.y; 

iny 

cpy lmax; 

bcc clr2eol 

beq clr2eol 

bcs jchrdone 



; — cursor to bottom — 

t 

bothome ldy 10 

ldx #24 

jsr Se50c; jump into clear screen 

jchrdone jmp chardone 

; -- clear to bottom of screen -- 

clr2bot ldx #$19 

c2bl dex; from the bottom up 



cpx row 
beq c2b2 
Ida llynx,x; 
ora #$80 
sta llynx.x 
jsr clrline; 
bmi c2bl; 



clear line links 



clear line 
always 

c2b2 jsr $e9f0; reset pointers 
jsr $ea24 

ldy column; clear line the 

jmp clr2eol; cursors on. 

f 

; — clear to top of screen — 

• 

clr2top ldx #$ff 

c2tl inx; from the top down 

Ida llynx,x; clear line links 

ora #$80 

sta llynx,x 

jsr clrline; 

cpx row 

bne c2tl 

beq jchrdone; 



clear line 



always 



; — various patches — 

*= $fcff 

jmp autoboot 

*= $fe6f 

jmp setclr 

*= $ff80 

.byte $10; version byte (1.0) 

• 

; — sys65526 to reactivate — 

*= $fff6; last jump table entry 
jmp wedgeon; is normally unused. 



.end 



\ 
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Listing 2: Run this to set up the Kernal ROM from BASIC 



rem set up rom copy routine 

rem copy roms to ram 

rem copy a chunk for replacement rom code 

rem loop till all rom chunks copied 

rem switch out roms 

rem activate wedge 



EN 100 gosub 190 

CO 110 sys 384 

BC 120 gosub 190 

HI 130 if q=0 goto 120 

OC 140 poke 1,53 

AE 150 sys 65526 

AK 160 end 

OB 170 : 

JI 180 rem read a,n; poke n bytes starting at a 

PI 190 read a 

JK 200 if a=-l then q=l: return 

KM 210 read n 

MK 220 for i=a to a+n-1 

HF 230 read b: poke i,b 

PM 240 next i 

GB 250 return 

IH 260 : 

JM 1000 data 384,28 : rem poke 28 byte rom copy routine to 384 

OJ 1010 data 169, 160, 32, 135, 1, 169, 224, 160, 0, 132, 251, 133 

PA 1020 data 252, 162, 32, 177, 251, 145, 251, 200, 208, 249, 230, 252 

HE 1030 data 202, 208, 244, 96 

EI 1040 : 

MI 1050 data 57818,1 :rem 1 byte at §elda 

CL 1060 data 008 

PE 1070 data 57896,3 :rem 3 bytes at Se228 

EJ 1080 data 004, 160, 007 

HH 1090 data 58443,2 :rem 2 bytes at $e44b 

NN 1100 data 052, 247 

AM 1110 data 58504,14 :rem 14 bytes at $e488 

OE 1120 data 203, 069, 082, 078, 065, 076, 043, 043, 032, 214, 049, 046 

00 1130 data 048, 032 

DO 1140 data 58551,13 :rem 13 bytes at §e4b7 

IH 1150 data 076, 079, 065, 068, 034, 048, 058, 042, 034, 044, 056, 044 

HC 1160 data 049 

EC 1170 data 58858,6 :rem 6 bytes at $e5ea 

JP 1180 data 076, 095, 246, 234, 162, 005 

DM 1190 data 59173,5 :r«o 5 bytes at $e725 

LA 1200 data 076, 025, 250, 234, 234 

HP 1210 data 59346,2 :rem 2 bytes at $e7d2 

IF 1220 data 058, 250 

00 1230 data 59746,3 :rem 3 bytes at $€962 
CF 1240 data 076, 008, 250 

IP 1250 data 60482,1 :rem 1 byte at $ec42 

DI 1260 data 132 

AC 1270 data 60536,3 :rem 3 bytes at $ec78 

IF 1280 data 023, 021, 026 

OF 1290 data 60543,1 :rem 1 byte at $ec7f 

HE 1300 data 025 

01 1310 data 60587,1 ;rem 1 byte at Secab 
IL 1320 data 022 

LI 1330 data 60599,1 :rem 1 byte at $ecb7 

EN 1340 data 133 

BK 1350 data 60647,4 :rem 4 bytes at $ece7 

AN 1360 data 013, 082, 085, 078 

JM 1370 data 62158,3 :rem 3 bytes at $f2ce 

ON 1380 data 076, 113, 242 

KK 1390 data 62347,2 :reo 2 bytes at $f38b 

FA 1400 data 076, 019 

JJ 1410 data 62777,2 :rent 2 bytes at $f539 

JB 1420 data 076, 019 

M 1430 data 63066,2 :rem 2 bytes at $f65a 

KC 1440 data 234, 234 

PD 1450 data 63071,39 :rem 39 bytes at $f65f 

EE 1460 data 201, 131, 208, 003, 076, 238, 229, 201, 132, 208, 004, 162 

ME 1470 data 013, 208, 006, 201, 133, 208, 017, 162, 009, 120, 134, 198 

DK 1480 data 189, 182, 228, 157, 118, 002, 202, 208, 247, 076, 205, 229 

PF 1490 data 076, 254, 229 

JK 1500 data 63276,876 :rem 876 bytes at $f72c 

IN 1510 data 032, 083, 228, 169, 008, 133, 190, 096, 166, 122, 208, 036 

CJ 1520 data 201, 064, 240, 114, 201, 062, 240, 110, 201, 095, 240, 030 

HK 1530 data 201, 037, 240, 038, 201, 094, 240, 037, 201, 047, 240, 033 

II 1540 data 201, 061, 240, 029, 201, 033, 240, 007, 201, 035, 240, 026 

BD 1550 data 076, 124, 165, 076, 089, 249, 032, 077, 249, 032, 089, 225 

Transactor 



JP 1560 data 032, 058, 248, 076, 017, 249, 169, 001, 
JB 1570 data 140, 248, 173, 001, 002, 240, 094, 032, 
NL 1580 data 200, 169, 044, 153, 000, 002, 200, 169, 
PB 1590 data 132, 183, 032, 060, 249, 169, 025, 032, 
IO 1600 data 208, 014, 032, 225, 255, 240, 009, 032, 
ME 1610 data 255, 076, 150, 247, 032, 066, 246, 076, 
PP 1620 data 249, 173, 001, 002, 240, 038, 201, 035, 
MA 1630 data 240, 035, 201, 036, 240, 054, 201, 092, 
EE 1640 data 249, 160, 000, 185, 001, 002, 032, 168, 
CH 1650 data 208, 245, 032, 174, 255, 076, 242, 247, 
CE 1660 data 094, 169, 124, 141, 004, 003, 169, 165, 
GD 1670 data 002, 002, 041, 015, 133, 190, 032, 122, 
HH 1680 data 032, 060, 249, 169, 003, 133, 156, 032, 
MJ 1690 data 032, 165, 255, 133, 159, 166, 144, 208, 
KJ 1700 data 238, 166, 158, 164, 159, 032, 205, 189, 
MI 1710 data 255, 032, 165, 255, 240, 006, 032, 210, 
DG 1720 data 032, 058, 248, 032, 225, 255, 240, 004, 
DL 1730 data 032, 066, 246, 076, 242, 247, 169, 013, 
EL 1740 data 050, 249, 160, 000, 185, 104, 248, 032, 
OK 1750 data 031, 208, 245, 032, 174, 255, 032, 050, 
OL 1760 data 135, 248, 032, 168, 255, 200, 192, 005, 
BM 1770 data 255, 076, 017, 249, 077, 045, 087, 000, 
HH 1780 data 208, 173, 002, 007, 073, 004, 141, 002, 
EM 1790 data 169, 065, 141, 001, 001, 032, 007, 239, 
PO 1800 data 045, 069, 000, 006, 133, 185, 032, 077, 
BK 1810 data 044, 173, 000, 002, 201, 061, 240, 002, 
LN 1820 data 244, 176, 047, 165, 144, 041, 016, 208, 
NA 1830 data 201, 037, 240, 043, 165, 174, 133, 045, 
BA 1840 data 032, 089, 166, 032, 051, 165, 032, 142, 
OH 1850 data 201, 094, 208, 019, 169, 000, 133, 157, 
FC 1860 data 174, 167, 170, 208, 012, 162, 030, 044, 
HA 1870 data 128, 169, 255, 133, 058, 108, 000, 003, 
KA 1880 data 136, 132, 187, 136, 185, 001, 002, 240, 
HH 1890 data 003, 200, 016, 244, 162, 000, 185, 002, 
OO 1900 data 240, 010, 201, 034, 240, 006, 200, 232, 
KK 1910 data 138, 168, 132, 183, 096, 032, 084, 249, 
BG 1920 data 255, 169, 111, 032, 150, 255, 032, 165, 
EF 1930 data 201, 013, 240, 004, 165, 144, 240, 242, 
KL 1940 data 242, 247, 165, 186, 032, 177, 255, 169, 
BM 1950 data 169, 096, 133, 185, 032, 213, 243, 165, 
KM 1960 data 165, 185, 076, 150, 255, 032, 228, 248, 
IG 1970 data 169, 000, 133, 144, 096, 173, 001, 002, 
CH 1980 data 240, 033, 201, 042, 240, 035, 201, 048, 
KH 1990 data 176, 193, 141, 032, 208, 172, 002, 002, 
AH 2000 data 105, 010, 141, 032, 208, 141, 033, 208, 
EN 2010 data 159, 249, 076, 242, 247, 169, 001, 168, 
KN 2020 data 165, 165, 034, 133, 045, 165, 035, 133, 
NL 2030 data 076, 242, 247, 169, 128, 141, 138, 002, 
KM 2040 data 208, 234, 234, 141, 033, 208, 169, 153, 
LN 2050 data 014, 076, 210, 255, 032, 044, 247, 032, 
LN 2060 data 249, 032, 034, 228, 162, 251, 154, 169, 
BG 2070 data 141, 002, 201, 001, 240, 006, 201, 004, 
KA 2080 data 070, 002, 032, 231, 255, 160, 255, 200, 
PL 2090 data 001, 002, 208, 247, 032, 228, 248, 165, 
PB 2100 data 094, 044, 169, 037, 141, 000, 002, 076, 
HP 2110 data 227, 048, 058, 063, 042, 000, 032, 159, 
PO 2120 data 133, 172, 120, 169, 253, 141, 000, 220, 
EB 2130 data 127, 240, 244, 088, 096, 016, 003, 076, 
OA 2140 data 240, 003, 076, 042, 231, 165, 216, 240, 
CB 2150 data 216, 133, 212, 240, 006, 165, 212, 208, 
OO 2160 data 168, 230, 201, 021, 240, 015, 201, 022, 
GF 2170 data 240, 035, 201, 026, 240, 060, 076, 068, 
GF 2180 data 209, 173, 033, 208, 145, 243, 200, 196, 
CF 2190 data 240, 176, 007, 160, 000, 162, 024, 032, 
KD 2200 data 230, 162, 025, 202, 228, 214, 240, 011, 
GG 2210 data 149, 217, 032, 255, 233, 048, 240, 032, 
HK 2220 data 234, 164, 211, 076, 077, 250, 162, 255, 
CH 2230 data 128, 149, 217, 032, 255, 233, 228, 214, 
LG 2240 data 64767,3 :rem 3 bytes at $fcff 
IG 2250 data 076, 184, 249 
FE 2260 data 65135,3 :rem 3 bytes at $fe6f 
CF 2270 data 076, 002, 250 
HB 2280 data 65408,1 :rem 1 byte at $ff80 
CI 2290 data 016 

EG 2300 data 65526,3 :rem 3 bytes at $fff6 
PI 2310 data 076, 044, 247 
BG 2320 data -1 



044, 


169, 


000, 


076 


077, 


249, 


164, 


183 


083, 


153, 


000, 


002 


210, 


255, 


165, 


144 


165, 


255, 


032, 


210 


104, 


247, 


032, 


077 


240, 


049, 


201, 


081 


240, 


025, 


032, 


050 
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017, 
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005, 
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173 
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168, 


255, 


200, 


192 


249, 
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, 206 



□ 



27 



February 1989: Volume 9, Issue 3 



Far-Sys for the C64 



Reach out and touch some ROM 



bv Richard Curcio 



The Commodore 64 contains 20K of RAM normally unusable 
from BASIC. Using machine language, however, the BASIC In- 
terpreter and Operating System (Kernal) ROMs can be 
switched out to allow access to 16K of ram 'under' them. An- 
other 4K lies under the I/O and character ROM block. Many 
programs have appeared that use this extra RAM as a storage 
area or bit-map screen. The utility presented here, Far-Sys, 
provides BASIC with a mechanism for calling machine lan- 
guage located in these 'hidden' areas. Additionally, the utility 
provides a means for hidden ML to access ROM routines. 

Using Far-Sys 

The syntax for using Far-Sys is 

SYS FAR, TARGET { , a} { , x} { , y) { , s) 

Far is the address where Far-Sys is located and target is the 
address of the ML under ROM. The arguments a, x, y\ and s are 
optional and, if present, will be loaded into the accumulator, x, 
y, and status registers respectively. Any argument may be 
omitted by placing a comma in the corresponding position. 
Omitted arguments retain the values SYS picks up from loca- 
tions 780 to 783 (S030C - S030F). For example: 

SYS FAR, 45056, ,8 

executes a routine at SB(XX) passing 8 to the x register. Regard- 
less of the value assigned to sr, Far-Sys disables iRQs before 
ROMs are switched out. Upon return to BASIC, addresses 780 to 
783 may be PEEKed for results, just like a normal SYS 
statement. 

One POKE is necessary before using Far-Sys: POKE FAR +6, 
BANK. The effect of this poke is similar to, though much sim- 
pler than, the bank command in BASIC 7.0 on the CI 28. Far- 
Sys provides six 'banks' numbered to 5. These banks should 
be thought of as temporary configurations in effect only during 
execution of Far-Sys code. If too large a value is POKEd into 

FAR +6, Far-Sys will Stop with UNDEFND STATEMENT ERROR. 

Bank 0: This is equivalent to the configuration in effect before 
executing SYS far. This may not be the same as the 64's de- 
fault configuration since a modified BASIC in RAM could be in 



effect. The only reason to use this bank would be to more con- 
veniently disable IRQs and pass register values than the normal 
sys statement provides. 

Bank 1 : SA000 - $BFFF RAM (BASIC switched out.) 

$D0O0-$DFFF I/O 

$E000 - SFFFF Kernal ROM 
Bank 2: Same as Bank 1 except; 

$D000 - $DFFF Character ROM 
Bank 3: $A000-$BFFF RAM 

$D000-$DFFF I/O 

SE000 - SFFFF RAM 

(BASIC and Kernal switched out.) 
Bank 4: Same as Bank 3 except; 

$D000 - SDFFF Character ROM 
Bank 5: Same as Bank 4 except; 

SD0OO- SDFFF RAM 

(all ROM and I/O switched out.) 

Note that if the machine is already configured with BASIC or 
BASIC and Kernal in RAM, Banks 1 or 3 also cause no change 
in configuration. 

Why so many? 

The different configurations provide a great deal of flexibility. 
Using Bank 1, a routine under the BASIC ROM could change 
colour memory or control the SID chip since I/O is visible to 
the CPU. Using Bank 4, a routine under the Kernal could copy 
the character ROM into RAM. However, with increased versatil- 
ity comes increased chance of error. Storing data to the RAM at 
the SDxxx block while I/O is present could crash the system. 
Attempting to call a routine under the Kernal when in Bank 1 
or 2 could have the same effect. Far-Sys does not compare 
banks and target addresses. Use caution. 

Using FARJSR 

Within Far-Svs is some code to allow ML in the hidden areas 
to call ROM routines when the ROMs are switched out. Your 
hidden routine should follow these steps: 

1 . Store the address you wish to call in low/high-byte format 
in zero-page locations $14/$I5. 
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2. Pre-condition any necessary flags by storing the proper val- 
ue in S030F. One way to do this is PHP, PLA then ORA or and 
to set/clear the selected bit(s). Do not CLI while the Kernal 
or HO is not present! 

3. Store any required a, x, and y values in S030C - S030E. 

4. JSR FAR +3, where FAR is the beginning of Far-Sys. 

The C64 will be restored to the configuration in effect before 
basic executed SYS FAR (Bank 0). 

As with jsrfar and JMPFAR in the CI 28 Kernal, the user 
should ensure that iRQs and NMis are handled properly. Step 2, 
above, is critical in this respect. Far-Sys always performs SEI 
before switching out ROMs and CLI after switching them back, 
but FARJSR doesn't CLI after switching ROMs in. (Nmis are not 
affected by SEI and CLI instructions. More about NMis at the 
end of this article.) If interrupts are necessary, this must be 
handled by the value in $<>30F. When the called routine returns 
to farjsr, SEI occurs before ROMs are again switched out. The 
calling routine can then examine $030C-$030F for results, 
though x and y can be examined directly. These locations will 
usually be over-written when Far-Sys returns to BASIC. 

Unlike the C128's jsrfar, Far-Sys and farjsr always restore 
the calling configuration - in either direction. 

The programs 

Program 1 is the basic loader for Far-Sys. It is designed to re- 
locate the ml if the start address (FAR in line 110) is changed 
to a location other than 51200. Far-Sys can be placed any- 
where in normal or 'open' memory. If placing Far-Sys at the 
top of BASIC program space, the top of memory pointer in lo- 
cations 55-56 should be lowered by at least 157 bytes. 

Program 2 is a Demo-Test program to confirm that Far-Sys is 
functioning properly. Far-Sys must be located at 51200 for this 
demo. A short program is POKEd into ram beginning at 61440 
under the Kernal. No bank switching is necessary to POKE to 
this area, or to locations under the BASIC ROM. Another short 
program is POKEd to D-block RAM beginning at 53248. Sur- 
prisingly, this area can be POKEd from basic! The steps to do 
so, as shown in lines 200-230 of the demo, are similar to those 
when basic is used to copy the character ROM to ram. First, 
IRQs are disabled by masking the timer interrupt bit in CIA 1. 
(Any other sources of interrupts should also be disabled.) 
Then, I/O is switched out by POKEing the 6510 port at location 
1. When character ROM is switched in. D-block behaves like 
the other ROM regions: pokes 'fall through' to the underlying 
RAM. Like the other ROM locations, ML is still necessary to 
read this RAM. D-block can be read only when all ROM is 
switched out. 

The BASIC demo then clears the screen, sets up Far-Sys for 
Bank 3 and executes the ML at 61440 (SF000). This code incre- 
ments the border color, and uses farjsr to call the Kernal 



PLOT routine to position the cursor mid-screen and the BASIC 
ROM routine, LINPRT which prints a two-byte integer con- 
tained in x/a. (See the source listing for Underkern.) Control 
then returns to BASIC via Far-Sys and pauses a while to allow 
the effects to be observed. After the delay, 256 'A's are print- 
ed and, after another delay. Bank 5 is set up and the code at 
53248 ($D000) is called. This increments the first 256 screen 
locations, changing the 'A's to 'B's. 

Writing hidden ML 

There are several ways to write programs under ROM. The 
code should first be assembled and tested in normal ram, if 
possible. If the ml is relocatable, with no absolute JSRs, JMPs, 
LoaDs or STores within itself, after DATAfication a basic 
Loader can change the start address and poke the code to ram 
under ROM. If not relocatable, a machine language monitor can 
be used to manually change the absolute addresses of ML as- 
sembled in normal ram. This is tedious at best. The most con- 
venient method is to use an assembler that writes object code 
to disk. Load "prog", 8, 1 will bring the ML into hidden RAM, 
excluding D-block, which can be POKEd as described above. 
For debugging purposes, there are a few machine language 
monitors available that can perform their operations on hidden 

RAM. 

Details and possibilities 

Far-Sys is arranged so that parts of it may be accessed by oth- 
er programs. See the subroutines labeled "twobyt", "combyt" 
and "getargs" in the source listing. 

It is not neccessary to use FARJSR if a routine under BASIC 
needs to call a Kernal routine and the machine is in bank 1 or 
(possibly) 2. However, a routine under the Kernal or D-block 
must use FARJSR to call any ROM routines. 

By changing the contents of the locations labeled "cnfg" and 
"mask", it is possible to return to a different configuration - 
though it's hard to see a reason to do so. 

When a hidden routine is called, four stack positions are used: 
two to return to Far-Sys and two to return to basic. Similarly, 
using FARJSR uses four more stack positions. 

It should be possible to re-write Far-Sys as a wedge or Trans- 
basic module, with an accompanying bank command. I'm 
sure that Transactor readers can devise many uses and varia- 
tions of this small but useful program. 

IRQs, NMIs and CIAs 

As stated earlier, Far-Sys always performs SEI before ROMs are 
switched out. Since I/O and the Kernal are present in bank 1, if 
a routine under BASIC requires IRQs, CLI will of course take 
care of them. Also, the 6526 CIA (Complex Interface Adapter) 
and the VIC-H each contain an ICR, Interrupt Control Register, 
which can be written to enable or disable IRQ sources. 
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Nmis are more difficult to deal with. As the name suggests, 
Non-Maskable Interrupts cannot be disabled by instructions, 
though sometimes the hardware responsible can be. Cia-2 at 
SDDxx generates nmis relating to serial I/O and RS-232 activity. 
But the ICR is not like a normal memory location. Writing to it 
enables-disables interrupt sources, but reading it reveals which 
source generated the interrupt, not the enable-disable status. 
It's like a read-only register and a write-only register contain- 
ing different information at the same location. There is no way 
to determine which NMI sources had been enabled so that they 
may be re-enabled after disabling them. Far-Sys makes no at- 
tempt to deal with nmis on a 'universal' basis. It is left to the 
. user to handie NMls properly in a given situation. Not easy. 

The real fly in the ointment is the RESTORE key. Unlike the 
vic-20, where the RESTORE key connects to a via chip, where 
the resulting NMI can be masked out, the C64's RESTORE key 
connects to a one-shot which in turn connects directly to the 
NMI line (through an inverter). If this or any other NMI (or for 
that matter, IRQ) should occur while Far-Sys or any other rou- 
tine has switched out the Kernal, the computer will crash. 
Changing the Kernal RAM vectors at $03I4-$0319 won't help, 
because the microprocessor first looks to the 'hardware vec- 
tors' in locations $FFFA-$FFFF to find out where it should go 
when an interrupt or reset occurs. If the Kernal ROM isn't 
there, the 6510 will use whatever is in the corresponding RAM 
locations to find its way and will more than likely become 
hopelessly lost. 

There is a partial solution, though. New vectors could be writ- 
ten to the RAM under ROM at sfffa-sffff directing the 65 10 to 
a routine to save the registers and switch the Kernal back in 
and handle the interrupt, or ignore it. (If the RAM under the 
Kernal is used for a bit map, 8000 bytes are required, so 192 
are still available for 'hidden vectors' and interrupt handling. 
Make certain any hi-res clear command clears only the first 
8000 bytes, not the full 8192.) 

Program 1: BASIC loader for Far-Sys 

PI 100 rem *** far-sys *** 

DA 110 far=512QQ:rem relocating *** 

HN 120 ck=0 

IJ 130 readd:ck=ck+d:ifd=999thenl50 

NC 140 gotol30 

JF 150 ifck<>11342thenprint"*** error in data ***":end 

PB 160 restore :sa=far 

Dfl 170 readd:ifd=999then220 

PP 180 ifd=>0thenpokesa,d:goto21Q 

DC 190 ad=far+abs(d) :h=ad/256:l=ad-int (ad/256) *256 

CO 200 pokesa,l:sa=sa+l:pokesa,h 

FI 210 sa=sa+l:gotol70 

JJ 220 print n far-sys installed"far"to n sa 

MB 230 data 76,-18, 76,-78, 0, 0, 0,108 

HE 240 data 20, 0,255,246,242,245,241,244 

ND 250 data 32,-96,174,-6,224, 6,144, 3 

GD 260 data 76,227,168,165, 1,141, -7, 61 

BB 270 data -12,141, -8, 32,-124,32,-89,173 

EO 280 data 15, 3, 9, 4, 72,173, 12, 3 

KC 290 data 174, 13, 3,172, 14, 3, 40, 32 

BO 300 data -9, 8,72,173,-7,133, 1,104 

BK 310 data 40, 88, 96,173, -7,133, 1, 32 



HD 320 data 

EF 330 data 

JK 340 data 

AB 350 data 

00 360 data 

BF 370 data- 

FE 380 data 

EP 390 data 

KD 400 data 



54,225, 32, 71,225,120,173, -8 

133, 1, 96, 32,253,174, 32,138 

173, 76,247,183, 32,121, 0,240 

12, 32,253,174,201, 44,240, 5 

32,158,183, 56, 96, 24, 96, 32 

105,144, 3,142, 12, 3, 32,-105 

144, 3,142, 13, 3, 32,-105,144 

3,142, 14, 3, 32,-105,144, 3 

142, 15 f 3, 96,999 



Program 2: Far-Sys demoltest (Far-Sys must be at 51200) 

EE 100 rem *** far-sys demo/test *** 

HA 110 far=51200 

HN 120 ck=0 

PC 130 readd:ifd=-lthenl5Q 

NH 140 ck=ck+d:gotol30 

OC 150 ifcko6830thenprint"data statement error!":end 

IL 160 restore 

LJ 170 rem *** poke routine to $f000 *** 

GM 180 fori=0to55:readd:poke61440+i,d:next 

DG 190 rem *** poke routine d-block *** 

BN 200 poke56334, peek (56334) and254; rem turn off timer irqs 

OG 210 pokel,peek(l)and251:rem switch in chr ront 

IP 220 fori=0to8;readd:poke53248+i,d:next 

JD 230 pokel, peek (l)or4: rem put back i/o 

OH 240 poke56334,peek(56334)orl:rem enable irq 

OD 250printchr$(147); 

CA 260 poke far+6,3;sys far, 61440: rem execute routine under kernal 

JL 270 gosub320 

GK 280 printchr§(19);:fori=0to255:print"a";:next 

m 290 gosub320 

FE 300 poke far+6,5:sys far, 53248: rem execute routine in d-block 

GD 310 end 

LC 320 for t=0tol500:next 

PL 330 return:rem waste some time 

CI 340 rem *** underkern *** 

JJ 350 data 238, 32,208,169,255,160,240,132 

BJ 360 data 20,133, 21, 24, 8,104,141, 15 

FF 370 data 3,162, 10,160, 17, 32, 44,240 

NK 380 data 169,189,160,205,132, 20,133, 21 

CJ 390 data 8,104,141,15, 3,169,255,170 

OH 400 data 32, 44,240, 96,141, 12, 3,142 

NF 410 data 13, 3,140, 14, 3, 76, 3,200 

LN 420 rem *** move under d-block *** 

NL 430 data 162, 0,254, 0, 4,232,208 

HE 440 data 250, 96, -1 

Program 3: Source code for Far-Sys 



HO 1000 

IG 1010 

CJ 1020 

HH 1030 

BB 1040 

AJ 1050 

IH 1060 

EK 1070 

KB 1080 

IL 1090 

IP 1100 

Ml 1110 

OG 1120 

CE 1130 

PF 1140 

OG 1150 

PC 1160 

BK 1170 

CB 1180 

NI 1190 

GC 1200 

HC 1210 

JD 1220 

EE 1230 



sys999 

; power assembler (buddy) 

*= $c800 

r 

; far-sys -- 

t 

; system routines 






chrget 
chrgot 
chkcom 
frmnum 
getadr 
onebyt 



$0073 
$0079 
$aefd 
$ad8a 
$b7f7 
$b79e 



farsys jmp setup 
farjsr jmp relay 
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KC 
JL 
KI 
MG 
AN 
AI 
CM 
EJ 
HB 
AD 
MJ 
LD 
EC 
AN 
BL 
£0 
00 
NN 
66 
DB 
IK 
DL 
61 
LI 
PL 
EM 
CF 
AB 
GG 
KK 
KI 
ND 
HN 
FC 
IE 
FF 
DH 
KJ 
KM 
PF 
BB 
K0 
FO 
LF 
EH 
AF 
BL 
EC 
DG 
JA 



KB 
DE 
NP 
GP 
OB 
PM 
JL 
AM 
ND 
AL 
HE 
EM 
LC 
KL 
EB 
MO 
KI 
GL 
KA 
EB 



1240 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 



bank .byte 

cnfg .byte 

mask .byte 

jumper jap ($0014) 



;poke 0-5 here 
; current config 
;new config 



table of values to 'and with 6510 port 



msktbl =* 
byte 255 
byte 246 
byte 242 
byte 245 
byte 241 
byte 244 



bank - no change 

bank 1 - bas. out, kern & i/o in 

bank 2 - bas. out, kern 4 chr. in 

bank 3 - bas. & kern out, i/o in 

bank 4 - bas. & kern out, chr. in 
bank 5 - all ram 



setup 



bad 
ok 



jsr twobyt ;read address from basic text 

ldx bank 

cpx #$06 

bcc ok 

jmp $a8e3 ; display 'undef statement' if bank>5 

Ida $01 

sta cnfg 

and msktbl, x ;mask bits appropo. 

sta mask 

jsr getargs 



long 



;get srreg 

; ensure no irq when pip 



remain 



jsr romsout 

Ida $030f 

ora #$04 

pha 

Ida $030c 

ldx $030d 

ldy $030e 

pip 

jsr jumper 

php 
pha 

Ida cnfg 
sta $01 
pla 
pip 
cli 
rts 



routine to allow 'hidden' code to call rom routines, 
assumes address in $14/15, a, x, y and sr in $030c - $030f. 
also assumes 'cnfg' restores roms and 'mask' is valid 



;as per above 
;goto target 

;back here 

;save flags & ace. 

; roms in 



; restore rom(s) 

;part of "sys". loads regs, jmp ($0014) 

; stores regs. 



relay Ida cnfg 
sta $01 
jsr $el36 
jsr $el47 

romsout sei 

Ida mask 
sta $01 
rts 



look for comma, get expression - 65535 from basic text 

twobyt jsr chkcom 

jsr frmnum ;eval expression 

iron fretaHr rfwrv hvt"os in $1i 



jsi iiimiuiu ;evdi expression 

jmp getadr ;two bytes in $14/15 



this routine returns with carry clear if end of statement or comma 
followed by comma, carry set and one byte in x if num. expression. 



BK 1960 

AK 1970 

KH 1980 

FG 1990 

OD 2000 

OC 2010 

IK 2020 

LP 2030 

DG 2040 

PA 2050 

CI 2060 

DI 2070 

IJ 2080 

AK 2090 

EC 2100 

KM 2110 

EI 2120 

MB 2130 

KH 2140 

11 2150 

AH 2160 

PB 2170 

MN 2180 

MA 2190 

OM 2200 

FP 2210 

CP 2220 
2230 



combyt jsr chrgot 
beq comexit 
jsr chkcom 
anp #$2c 
beq comexit 
jsr onebyt 
sec 
rts 

comexit clc 
rts 



routine to read a, x, y f and sr 
values from basic text. 



current chr. 

end of statement 

look for comma and next chr. 

another comma"? 

yeah 

no. get value 



getargs jsr combyt 
bcc xget 

: stx $030c 

jsr combyt 
bcc yget 
stx $030d 
jsr combyt 
bcc sget 
stx $030e 
jsr combyt 
bcc exreg 
stx $030f 
rts 



xget 



yget 



sget 



; first param (.a) 
;just a comma, get next 
; sareg 
;next param (.x) 



;sxreg 

;get .y 

; another comma"? 

i syreg 

;get .sr 

; srreg 



exreg 



Program 4: Source code for "underkern" in demo/test 



IG 100 ! 


iys999 




EO 110 ; 






MG 120 ' 


*■ $f000 




DO 130 . 


obj "underkern" 




CA 140 ; 






MA 150 ; 






NN 160 border = $d020 




ED 170 farjsr = $c803 




KC 180 ; 






FP 190 begin inc border 




BI 200 : 


Ida #$ff 




NK 210 : 


ldy #$f0 


;want to call plot 


MJ 220 : 


sty $14 




DJ 230 : 


sta $15 




EA 240 ; 


clc 


;will set cursor 


Bl 250 


php 


;irqs not needed 


JH 260 


pla 




PJ 270 


sta $030f 


; status reg. 


MH 280 


ldx jf$0a 


;row 10 


IF 290 


ldy #$11 


;col 17 


CK 300 , 






IG 310 


jsr regfar 


;acc. not needed 


Gl 320 i 






BP 330 


Ida #$bd 




AD 340 


ldy #$cd 


;basic linprt £ $bdcd 


PB 350 


sty $14 




FB 360 


\ sta $15 




KZ 370 


php 


;no change in status reg 


BF 380 


pla 




EO 390 


sta $030f 




AM 400 


Ida #$ff 


; two-byte interger in x/ 


IJ 410 


tax 


;will print 65535 


KB 420 ; 






KM 430 


jsr regfar 


;.y not needed 


OC 440 ; 






KE 450 


rts 


;back to far-sys 


CE 460 


t 




CM 470 : 


regfar sta $030c 


prepare registers 


GJ 480 


stx $030d 


; since we jsr'd here 


KF 490 


: sty $030e 


;we can safely. .. 


HE 500 


; jmp farjsr 




KM 510 


.end 





II 
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C128 Parallel Printer Interface 



Emulating a parallel interface via the user port 



by Bill Brier 

Copyright © 1988 Bill Brier 

The Commodore CI 28 has proven to be a popular machine for 
small business use, primarily because of its low cost, powerful 
Basic 7.0 programming language and its business-oriented 
hardware features. 

Unfortunately, a hardware feature that the CI 28 doesn't have 
is a parallel printer output (a Centronics interface). Since the 
Centronics-style printer interface is pretty much the standard 
in the business world, lack of such an output would seem to 
limit the usefulness of the CI 28 as a business system. 



One solution to this limitation is to buy a commercial printer 
interface, for which one can expect to spend anywhere from 
50 dollars to over 120 dollars. However, many of the available 
interfaces offer frill features that aren't necessary for most 
business printing applications. 

A less expensive solution is to make the CI 28 user (RS-232) 
port act as a parallel printer output. This solution is practical if 
the computer's RS-232 functions are not needed. 

Employing the user port as a parallel printer output requires 
that one buy or fabricate a simple cable to connect the port to 
the printer and wedge a driver program into the computer's 
operating system. 

That is what this article is all about. 

For the benefit of those who may not be familiar with the Cen- 
tronics printer interface system, I'll describe how it operates. 
Then, I'll cover the hardware interface and the implementation 
of the driver software, the assembler source for which is given 
at the end of the article.. 

(For ease in typesetting, this article uses the * convention to 
indication low true signals; for example, * RESET means that 
RESET is a low true signal.) 



The Centronics Parallel Interface 



The connection scheme of the Centronics parallel interface is: 



C128 User Port 



Printer 



Pin Designation Data Dir. Pin Designation 



M 


*PA2 


-> 


1 


*STROBE 


c 


PBO 


-# 


2 


Dl 


D 


PB1 


-* 


3 


D2 


E 


PB2 


-» 


4 


D3 


F 


PB3 


-» 


5 


D4 


H 


PB4 


-» 


6 


D5 


J 


PB5 


-» 


7 


D6 


K 


PB6 


— > 


8 


D7 


L 


PB7 


— » 


9 


D8 


B 


*FLAG2 


<- 


10 


*ACKnowledge 


A 


GND (signal) 




16 
17 
31 


GND (signal) 

GND (shield) 
*RESET 



The above connection chart was worked out for the popular 
Star Micronics printers. You might want to check your printer 
manual for possible differences in the shield GND and reset 
connections. On some printers pin 33 is the shield GND instead 
of pin 17. The balance of the connections are standard for all 
parallel printers. 

The Centronics interface can be described as an eight-bit, 
asynchronous parallel bus system with hardware handshaking. 

The term asynchronous means that data bytes are transmitted 
at random intervals (no clock is used to synchronize transmis- 
sion). The term hardware handshaking describes the technique 
used to coordinate the computer and printer so that data is 
passed in an orderly manner. 
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Referring to the connection chart, the connections Dl through 
D8 on the printer (PBO through PB7 on the computer) pass the 
data byte (character) to be printed (Dl is equivalent to bit 0). 
When the printer is not being used the logic levels on these 
lines will be of no concern. 

The *STROBE line, which is controlled by the computer, is one 
of the two handshaking lines that synchronize the computer 
and printer. Normally, * STROBE will be held at logic one (high 
or 5 volts). This is why STROBE and PA2 are shown as 'low 
true' (and hence are asterisked). The *ACKnowledge line, 
which is controlled by the printer, is the other handshaking 
line, and it too will normally be held at logic one. 

When the computer has a character to print, it will place the 
corresponding ASCII data byte on the data lines Dl through 
D8. A clear bit will be represented by logic zero (low or 
volts) and a set bit will be represented by logic one. 

The computer will then inform the printer that a character is 
waiting by momentarily bringing the *STROBE line low and 
then high again (the *STROBE line is said to have been tog- 
gled). The printer will respond to the toggling of *STROBE by 
reading the data byte from the data lines. 

When the printer has successfully read the data byte it will sig- 
nal the computer by toggling the *ACKnowledge line in a man- 
ner similar to the way the computer toggled *STROBE. Typical- 
ly, the computer will wait indefinitely for this to happen. Once 
the *ACK.nowledge has been received, the next character can 
be transmitted. 

No error checking is implemented in this system. If a byte is 
corrupted for any reason, the printer will not know the differ- 
ence. Corruption can be avoided by limiting the speed at 
which data bytes are sent, minimizing the distance between the 
printer and the computer, and by using shielded cable to con- 
nect the computer to the printer. 

The *RESET line is not actually part of the data transmission 
system, as its only function is to cause a hardware reset in the 
printer when it is pulled low (it is normally high). The actual 
effect of such a reset will vary from one brand of printer to 
another. In most cases, a reset will clear the printer's buffer, 
return the head to the left margin and establish a new top-of- 
forrn setting. 

Now that I've acquainted you with the Centronics interface, 
I'll describe the hardware connection of the printer and 
computer. 

The hardware interface 

You may purchase or fabricate a cable to connect the CI 28 user 
port to the input connector on the printer. If you elect to pur- 
chase a cable, verify that it conforms to the connection chart in 
above (Berkeley Softworks makes a nice but somewhat expen- 
sive cable called the geoPrint cable). This connection scheme 



will work with many word processors that offer a user port 
printer output (it has been tested with Superscript 128). 

If you decide to build your own interface cable, consult this 
parts list for the necessary items: 

Quantity Item 



1 
2 
1 
A/R 



4 

1 



24-pin male PC board edge user port connector 
36-pin male plug to fit printer receptacle 
36-pin female receptacle to fit 36 pin plug 
12 conductor shielded or 36 conductor ribbon 

cable 
Plastic box, approx. 3-1/4" long x 2-1/4" 

wide x 1-1/4" high 
4-40 or 6-32 x 1/2" SEMS head machine screws 
SPST momentary contact printer reset 

pushbutton 



A source for the 24-pin PC board connector is Jameco Elec- 
tronics. The other items can be readily procured from local 
sources such as Radio Shack. The 36-pin plugs must match the 
type of cable that you intend to use. 

I suggest that you mount the 24-pin edge connector and the 
36-pin female receptacle to opposite sides of a small plastic 
box (see photographs). This will make for a more durable and 
professional -appearing assembly, as well as giving you a place 
to mount the printer reset button. 

Position the 24-pin edge connector so that its centreline will be 
7/16" above the bottom surface of the plastic box. This will 
cause the box to rest on the surface that supports the computer, 
thus avoiding the application of stress to the connector and the 
computer's PC board. When connected to the CI 28, the box will 
be adjacent to the RGB receptacle. Sufficient room must there- 
fore be provided for the RGB connector from the video monitor. 

You may mount the 36-pin female receptacle in any conve- 
nient position on the opposite side of the box. Position the 
reset button so that it is pointed towards the left when the 
interface is plugged into the computer. 

To secure the connector and receptacle to the box, first lay out 
rectangular slots on the long sides of the box, and cut the slots 
with a sharp modelling knife. Next, drill either #43 (4-40) or 
#36 (6-32) pilot holes for the mounting screws, using the con- 
nectors to lay out the holes. 

Then simply screw the machine screws into the pilot holes to 
attach the connector and the receptacle. The screws will cold- 
flow the plastic and make their own threads. Once you have 
tested your new interface and have verified that it works, you 
should use a small amount of quick-setting epoxy to perma- 
nently bond the connectors to the box for greater durability. 

The use of the 36-pin receptacle makes it possible to detach 
the cable should repairs to the assembly become necessary. If 
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you elect to hard-wire the cable into the box you may omit the 
receptacle and one of the two 36-pin plugs. Be sure to provide 
adequate strain relief for the cable. 

You will need to fabricate a cable to connect the receptacle on 
your new interface box to the printer itself. For residential use, 
I highly recommend the use of shielded cable. Flat ribbon 
cable, while more economical to purchase and easier to work 
with, emits too much radiation and may cause radio and televi- 
sion interference problems. The length of a ribbon cable 
should be limited to six feet. 

When using - shielded cable, connect the shield to the shield 
GND pin at the printer end only. Do not terminate the shield at 
the computer end. Simply insulate it and let it float. There 
should be no connection between the shield and the signal 
GND at any point. This is to prevent the shield from acting as 
an antenna for high-frequency noise. The length of a shielded 
cable should be limited to ten feet. 

When wiring up your cable follow the connection chart above 
and, if you are using shielded cable and soldered plugs, wire 
pin number for pin number. If you are using ribbon cable, note 
that the two plugs must both face the same direction when the 
cable is folded up (see the photograph of the cable assembly). 
If in doubt, check your work with some type of continuity 
checker to avoid an error. 

The reset button, while not a required part of the interface, is a 
useful feature to have in case you wish to reset the printer 
without shutting it off. It should be wired so as to pull the 
*RESET line to signal GND when the button is pressed. 

In fabricating your interface, you may be as crude or as refined 
as your time and talents permit. Just be careful to avoid acci- 
dentally making incorrect connections or short circuits. The 
user port is directly connected to the Mos 6526 ClA #2 chip 
inside the computer. A wiring error may damage the chip and 
render the computer inoperative. Also, never connect or dis- 
connect the interface while the computer and printer are turned 
on. An accidental slip of the wrist may bridge connections 
together, with catastrophic results. 

Once the hardware has been connected, always power the 
printer first. After it has gone through its power-up sequence 
you may turn on the computer. When enabled, the driver soft- 
ware will configure the user port for output and will set up the 
STROBE and ACKnowledge lines to the proper logic levels. 

The driver software 

The CI 28 user port is an eight bit I/O port with hardware hand- 
shaking provisions. It is connected to the ClA #2 chip and is 
seen in the SDDOO range of the system map. Normally, this 
port is addressed via the Kernal RS-232 routines, and is typi- 
cally used to communicate with a modem. If the port is to be 
used for some other purpose, suitable driver software must be 
written to implement the desired functions. 



The driver software presented here configures the user port so 
that it emulates a Centronics printer output. This is accom- 
plished by two machine language modules designated 
PPD6656 and PPD5632. PPD6656 contains the port driver 
code and operating system wedges, while PPD5632 contains 
the code used to set up or deactivate the driver module. Upon 
activation of the driver, the PPD5632 module is no longer 
required in memory, and may be overwritten without any 
effect on the system. 

The driver is completely transparent to BASIC and to any 
machine language program that calls the OPEN, CLOSE, CHK- 
OUT, CLRCHN and CHROUT (bsout) subroutines in the Kernal 
via the jump table. Once it has been wedged into the CI 28 
operating system, the driver will intercept calls to the above 
subroutines and direct output to the port printer when required. 
Programming considerations will be discussed below. 

The driver software's transparency makes it possible to 
address the user port as a printer using the standard Com- 
modore file handling syntax. You may activate the driver as 
follows: 

• Load the PPD6656 and PPD5632 modules into Ram with 

BLOAD. 

• Type SYS 5632,DN,LF where DN is the desired device number 
(4 through 7) of the port printer and LF is the linefeed enable 
flag. Set LF to 1 if you want a linefeed (ASCII 10) sent to the 
printer after each carriage return (ASCII 13) is sent. Otherwise, 
set LF to to suppress linefeeds. 

If a device number of is selected, the driver will be disen- 
gaged from the operating system and will no longer function. 
Selecting a device number outside of the allowable range will 
result in an illegal device number error. Never attempt to 
activate or deactivate the driver unless the PPD6656 module is 
in memory. Such an error may result in system fatality. 

Once a device number has been assigned to the user port printer, 
any output to that device number will be intercepted and directed 
to the port. If you assign device 4 to the port and you also have a 
printer on the serial bus that is device 4, the serial unit will not 
respond. You may still output to that printer via the low-level Ker- 
nal serial bus routines (which are not intercepted). 

When opening a file to the user port printer, you may use one 
of three secondary address (SA) values as part of the OPEN file 
syntax. The effects of the secondary address are as follows: 

SA EFFECT 

Only upper case characters are printed with 

PETSCII/ASCII translation. 
5 Transparent mode with no translation. . . the 

linefeed setting is ignored. 
7 Upper and lower case characters are printed with 

translation. 
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Any secondary address other than 5 or 7 will be treated as an 
SA of 0. The transparent mode (SA 5) results in characters 
being passed through without alteration by the driver. The 
linefeed flag setting (LF) will be ignored and a linefeed will 
not be sent after a carriage return. The transparent mode 
should be used for printing dot graphics. It may also be used to 
pass escape sequences. 

When an SA of or 7 is used to open the file, the printer will 
act pretty much like a Commodore printer. Case switching will 
occur if a cursor up (145) or cursor down (17) character is 
sent. Any alphabetic character will be translated from PETASCII 
to ASCII unless it is part of an escape sequence, in which case 
the character will pass through unchanged. 

For example, sending CHR$(65), the PETASCII for V. would 
result in translation to CHR$(97), the corresponding ASCII value. 
Without translation, the printer would have printed an ( A\ 

As mentioned above, if an alphabetic character immediately 
follows an Escape character (ASCII 27), no translation of the 
alphabetic character will occur. This will result in most escape 
sequences passing through the driver intact. If you prefer, you 
may open an additional file with an SA of 5 and use it to pass 
escape sequences. 

When a file has been opened with an SA of or 7, the control 
code CHRS(I5) (expanded print off) will be automatically con- 
verted to CHR$(20), as most printers will recognize CHR$(20) as 
expanded off and recognize CHR$(I5) as condensed print on. If 
you need to tum on condensed print, open a file with an SA of 
5 and use it to pass the command sequence. 

Regardless of the SA used to open the file, no attempt will be 
made to translate any of the Commodore Pet graphics charac- 
ters. The PETASCII values for those characters will be passed 
through unchanged, and will produce differing results depend- 
ing on the printer that you're working with. 



is taken off-line. You can break out of this loop with the 
STOP/RESTORE keypress combination. 

Conclusion 

I hope that you will find the port driver software a welcome 
addition to your library of CI 28 utilities. I also would like to 
think that you might learn something new by studying the 
code. The driver should demonstrate that there is nothing to be 
afraid of when it comes to messing around with the fundamen- 
tal operation of the computer. 

Such hacking can often yield worthwhile improvements to the 
system. It can also lead the way to a better understanding of 
how the computer works, which will ultimately give you 
greater control over the machine and what it can do. 




Photo 1. Commodore user port connector. 




Programming considerations 

Upon activation of the driver, several Kernal vectors are modi- 
fied so that the driver intercepts I/O calls. As a result, the driver 
may be considered part of the CI 28 operating system. Chang- 
ing anything in the memory range from S1A00 to S1BF3 may 
result in system fatality if any file handling routines are called. 
If you need that memory range for something else, you must 
load the PPD5632 module and deactivate the driver. Never 
deactivate the driver while a file is opened to the port printer. 

Attempting to open a file to device 2 (the RS-232 output) will 
result in an illegal device number error. This is to prevent 
interference with the driver and the user port setup. No other 
precautions need be observed to use the driver. 

The driver software will loop indefinitely waiting for the print- 
er to ACKnowledge the reception of a data byte. As a result, the 
system will appear to lock up if the printer is disconnected or 



Photo 2. Centronics parallel port connector. 




Photo 3. Ribbon cable assembly. 
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J 

Listing 1: Printer driver source 


; driver jump table 


1 

open04 cpy fnlen /command string length 




■■^ 

* 




■ 
t 

jmp open ;open file 


beq openOS /done 




.opt nos 




imp close ; close file 

* * 


Ida tfnadr /filename pointer 




;put"|aO:printdriver.src 

t * » _t h. b * l » . * * I * » 




jmp ckout /open output 


ldx fnbank /ram bank 




v ^ 




jmp clrch ; close output 


jsr indfet /fetch character 




;* c-128 Centronics printer... * 
;* driver for the user port * 




jmp bsout ; output character 
jmp setprt ;set up port 

* 


jsr pout /output character 
iny 

• 




** * 

;* written 1-08-87 w.j. brier * 






bne open04 /loop 

• 
I 






* 




;* revised * 


* 

; alternate indirect vectors 


open05 Ida #0 

clc ;no error 




n ■ 

;* copyright (c) 1987 * 
-ft * 


opena 
closea 


.byt 0,0 
i .byt 0,0 


< 
rts 




;* this program is not to be. . . * 
;* sold, it is permissible.., * 


ckouta 
clrcha 


. .byt 0,0 
. .byt 0,0 


/ 




/ 




;* to copy it but credit must. . . * 
;* be given in the documentation * 


bsouta 


. .byt 0,0 

t 


; handle errors 








.byt 0,0 ; reserved 






1 

;* see the documentation for,,, * 




1 


toomny Ida #1 /too many files 

1 i A A 1*1 1 




;* instructions on using this,.. * 


a 




.byt $2c ;bit op-code 

* 




I 






;* utility with your software. * 


t 

; control flaqs 


t 

filopn Ida 12 /file already open 




;ft **************** 




r 


.byt $2c 




■ 


pdev 


.byt ; device number 


■ 
t 




t 

t » t * * * * * * * r t ft t * * r 
-* * 


Ifflg 


.byt ; linefeed flag 


flnopn Ida #3 ;file not open 

.byt $2c 

* 
> 




;» <« program assignments >» * 
i* * 






ilgdev Ida |9 /illegal device number 




r 

;***************** 


; patch to kernal open routine 


pha /save error code 
jsr clrch /default i/o 




I 

; operating system functions... 


open 


Ida fa ; current device 
cmp #2 ;rs-232 


bit msgflg /kernal message flag 
bvc error3 /messages disabled 




clkspd =$d030 ; system clock speed 




beq ilgdev ; illegal device 


* 

ldy 10 




mmu =$ff00 configuration 
lkupla =$ff59 ; search for file 




cmp pdev ;port device number 
beq open 01 

■ 
r 


* 
t 

errorl Ida errmsg,y ;'i/o error...' 
beq error 2 ;end of string 




indfet =$ff74 .'indirect fetch 
chrout =$ffd2 ; output byte 




jmp (opena) ;not port printer 

t 


jsr bsout ;output message 




i 


openOl 


Ida la /current file 


iny 




zero page assignments... 


n 


jsr lkupla /search for file 


bne errorl /loop 




■ 
t 

status =$90 ;i/o status word 




bcc filopn : file already open 


error2 pla /fetch error code 




ldtnd =$98 ; number of open files 




ldx ldtnd ; number of open files 

cpx mo 

beq toomny ;too many files 


pha /write it back 

ora 148 /change it to ascii 




dfltn =$99 ; current input device 






dflto =$9a ; current output device 




jsr bsout /output error number 




msgflg =$9d /kernal message flag 




m ^ ^ 


t 




fnlen =$b7 ; filename length 




¥ 

inc ldtnd ;one more file 


error3 pla ; retrieve error code 




la =$b8 ;file number 




**»w ^- W* V ■» , V* f V ■■ r ^ i*^W *. W w mi rw "v 

sta latbl, x add file to table 


sec /indicate error 




sa =$b9 /secondary address 




■ 






fa =$ba ; device number 




Ida fa ; device number 


rts 




fnadr =$bb ; filename address 
fnbank =$c7 /bank holding filename 




sta fatbl, x ;add to table 






t 




datax =$ef /character buffer 

* 




Ida sa /secondary address 


/patch to kernal close routine 




t 

/kernal i/o tables... 




cmp #7 /upper/lover case output 


■ 




■ 
t 




beq open02 


close php /save status register 




latbl =$0362 ;file numbers 




I 


pha /save file number 




fatbl =$036c ; device numbers 




cmp |5 /transparent output 

1- An 


ldx ldtnd /number of files 




satbl =$0376 ; secondary addesses 




beq open02 


■ 
t 




i 




1 


closel dex ;file table offset 




;cia |2 registers... 




Ida |0 /must be 0, 5 or 7 


bpl close3 




d2pra =$dd00 ;data port a 


openOi 


! sta satbl, x /add to table 


> 

close2 pla /recover file number 




d2prb =$dd01 ;data port b 




4 4 11 A 


pip /recover status register 




d2ddra =$dd02 ;data direction a 




ldy HO 


jmp (closea) /not port printer 




d2ddrb =$dd03 ;data direction b 




sty status /clear 


* 




f 




sty pmode /initialize 


close3 cmp latbl, x /file number table 




d2icr =$dd0d ; interrupt control 

* 




cmp |7 


bne closel /not found 




' 




bne open03 /uppercase only 


■ 
t 




*=$la00 




i 
t 


Ida fatbl, x /fetch device 




• 

• 




dec pmode /indicate u.c./l.c. 


cmp pdev 




.pag 




i 


bne close2 ;not port printer 




;i I It i i t I I f i 1 t f I I I 


open03 jsr setprt ;set up user port 


i 




1 ;t # 




• 


pla /clear stack 




;| Centronics printer driver 128 I 


; output command string... 


pla 




A 1 




t 


dec ldtnd /one less file 




;HtlHIHHH»Mt 




ldy 10 


cpx ldtnd /check file position 




t 




r 


beq close5 /no table shift 
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Idy ldtnd ;new file count 

r 

close4 Ida latbl.y ;shift table 

sta latfcl x 
Ida fatbl.y 
sta fatbl.x 
Ida satbl.y 

sta sat b 1.x 

t 

close5 Ida #0 

clc ;no error 

i 

rts 



; patch to kernal chfcout routine 

ckout txa .swap file number 

jsr lkupla ; search for file 
bcs flnopn ; file not open 

cpx pdev 

beq ckoutl ;port printer 

tax .restore file number 

jmp (ckouta) .not port printer 

ckoutl sta la ;set file number 
stx fa ;set device number 
stx dflto ;set output device 
sty sa ;set secondary address 
jsr setprt ;set up port 

clc ;no error 
Ida 10 

* 

rts 



; patch to kernal clrchn routine 

* 

circa Ida dflto .-output device 
cmp pdev ;port printer 
beq clrchl 

» 

jmp (clrcha) ; normal clrchn 



clrchl Ida #0 
Idy 13 
sta d2prb 
sta dfltn 
sty dflto 

* 


; clear output 
.standard input 
.'Standard output 


clc ;all ok 

■ 


rts 

# 





.patch to kernal chrout routine 

bsout sta datax ;save character 

Ida dflto ; output device 
cmp pdev ;port printer 
beq boutOl 

* 
■ 

Ida datax .-restore character 
jmp (bsouta) ; normal bsout 

* 

boutOl txa ; preserve registers 
pha 
tya 
pha 

* 

ldx #0 ;mode flag 
stx status 



Ida datax ; fetch character 
Idy sa : secondary address 
cpy 15 
beq bout 08 .'transparent 

cmp #17 ; cursor down 

bne bout 02 

dex ;set lower case 
bmi bout03 

bout02 cmp #145 /cursor up 
bne bout 04 

bout03 stx pmode ;set mode 5... 
jmp bout09 ;exit 

bout04 cmp #27 ; escape 
bne bout05 

dex 

bmi bout08 ;set escape flag 

bout05 bit escflg 

bmi bout 06 ;no conversion 

cmp |15 ; expanded off 
bne bout06 

Ida 120 ;ascii expanded off 

bout06 bit pmode 

bpl bout07 ;u.c. only 

cap #65 ;petscii I.e. 
bec bout08 

cmp #91 
bcs bout07 

ora #32 .-change to ascii I.e. 

bout07 cmp #193 ;petscii u.c. 
bee bout08 

cmp #219 
bcs bout 06 

and #127 ; change to ascii u.c. 

boutOB stx escflg ; set/clear 
jsr pout ;write to port 

Ida sa 
cmp #5 
beq bout09 .'transparent output 

* 
1 r 

bit lfflg 

bpl bout09 .'linefeeds not enabled 

cpx #13 

bne bout 09 ;not a return 

Ida #10 /linefeed 
jsr pout 

I 

bout09 pla /restore registers 
tay 
pla 
tax 
Ida datax 



clc ; all ok 
rts 



; output 



to port printer 



pout tax :hold character 
ty» 

pha -save ,y register 

Ida elkspd 

pha save clock rate 

Idy #0 

sty elkspd ;slow speed 

sty status ; clear 

Idy #128 

4 
t 

pout 01 dey 

bpl poutOl ; output throttle 

• 

stx d2prb ; write to port 

nop ;wait 6 microseconds 



nop 

jsr toggl ,'toggle strobe 

f 

Ida #100010000 ;icr mask 

t 

pout02 bit d2icr ;wait for ack 
beq pout02 ;not received 

• 

pla 

sta elkspd ; restore clock 

pla 

tay .'restore 

rts 



;set up user port for output 

setprt Ida 1*01111111 ;mask interrupt! 
sta d2icr 

Ida d2pra ;port a output 
jsr toggll ;set strobe high 

Ida d2ddra ;data direction a 
ora #%00000100 ;set strobe... 
sta d2ddra ;as output 

ldx #0 ; bring all printer... 
stx d2prb ; output lines low 
dex ;set up port b... 
stx d2ddrb ;as output 

rts 



; toggle strobe line 

I 

toggl Ida d2pra 

and 1111111011 ;bring... 
sta d2pra ; strobe low &. 

■ 

toggll ora #%00000100 ;then... 

sta c2pra ;high again 





rts 








; error 


message text 






errmsg 


.byt 


13,'i/o 


error 


#',0 


■ storage 








escflg 
pmode 


*=«+l 


/escape 
.■output 


mode 
mode 


flag 



■-==== === s== 



.end 
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Listing 2: Printer driver set-up source 



.opt nos 
:put"fiO:driversetup.src 



* c-128 Centronics printer... 

* driver setup module 

i* written 1-08-87 w.j. brier 
* 

* revised 

* 

* copyright (c) 1987 

* sys 5632, dn, If to enable 

* sys 5632,0 to disable 

* see the documentation for... 
:* instructions on using this. . . 

* utility with your software. 
* 

I**************** 

■ 
# 

**************** 



;* <« program assignments >» 

;* 

;**************** 

; system vectors & pointers... 
ierror =$0300 ; basic error vector 



iopen =$031a ;kernal open vector 
iclose =$031c ;kernal close vector 
ickout =$0320 ;kernal ckout vector 
iclrch =$0322 ;kernal clrchn vector 
ibsout =$0326 ;kernal chrout vector 

« 
t 

rami =$ff00 configuration 

■ 

/printer driver jump table... 

t 

open =$la00 ;kernal open patch 

close =$la03 ;kernal close patch 

ckout =$la06 ;kernai chkout patch 

clrch =$la09 ;kemal clrchn patch 

bsout =$la0c ;kernal chrout patch 

setprt =$H0f ;port setup 

,-printer driver control flags... 

pdev =$lale ;port device number 
If fig =$lalf linefeed flag 

■ 

; alternate indirect vector storage > 

. 

opena =$lal2 ;open exit 
closea =$lal4 ; close exit 
ckouta =$lal6 ;chkout exit 
clrcha =$lal8 ; clrchn exit 
bsouta =$lala ; chrout exit 

t 

resrvd =$lalc ; reserved 

■ 

*=$1600 ;5632 



stx If fig ;save linefeed flag 

ldx *0 

ldy mmu ;get configuration 

stx mmu .enable roms 

* 
t 

tax 

bne endr ; enable driver 

t 

jmp dadr ; disable driver 



;driver enable/disable 



; enable driver 

endr cpx U ; check device number 
bcs endr02 

endrOl ldx 19 ; illegal device 
jmp (ierror) ; abort 

* 

F 

endr02 cpx 18 

bcs endrOl ;out of range 

tya 

pha -save configuration 

stx pdev ;set device number 

• 

clc 

' Ida lfflg 
and 11 ;mask garbage 
ror a ; rotate twice 
ror a 
sta lfflg ;set up flag 

; set up new vectors . . . 

■ 
t 

ldx iopen ;open vector 
ldy iopen+1 
cpx f <open 
bne endr03 

i 
t 

cpy i>open 
bne endr03 

jmp endr04 ; skip setup 
> 
endr03 stx opena 
sty opena+1 

ldx jf<open ;new vector 
ldy ¥>open 
stx iopen 
sty iopen+1 

ldx iclose ; close vector 
ldy iclose+1 
stx closea 

sty closes*! 

ldx #<close ;new vector 
ldy #>close 
stx iclose 
sty iclose+1 

* 

ldx ickout ; ckout vector 

ldy ickout+1 

stx ckouta 

sty ckouta+1 

ldx #<ckout ;new vector 
ldy |>ckout 
stx ickout 
sty ickout+1 



ldx iclrch ; clrchn vector 
ldy iclrch+1 
stx clrcha 
sty clrcha+1 

ldx IKclrch ;new vector 
ldy #>clrch 
stx iclrch 

sty iclrch+1 

* 

ldx ibsout ; chrout vector 

ldy ibsout+1 

stx bsouta 

sty bsouta+1 

i 

ldx #<bsout ;new vector 

ldy t>bsout 

stx ibsout 

sty ibsout+1 

jsr setprt ;set up user port 



endr04 pla 
sta 

I 

rts 



;old configuration 



; disable driver 

dadr tya 

pha ;save old configuration 

p 
i 

; check for enabled driver . ■ , 

ldx iopen ;open vector 

ldy iopen+1 

cpx S<open 

bne endr 04 ;not enabled 

f 

cpy S>open 
bne endr 04 

> 

; restore vectors... 

■ 

ldx opena ;old open 
ldy opena+1 
stx iopen 
sty iopen+1 

ldx closea ;old close 
ldy closea+1 
stx iclose 
sty iclose+1 

ldx clrcha ;old clrchn 
ldy clrcha+1 
stx iclrch 
sty iclrch+1 

ldx ckouta ;old ckout 
ldy ckouta+1 
stx ickout 
sty ickout+1 

ldx bsouta ;old bsout 
ldy bsouta+1 
stx ibsout 
sty ibsout+1 
jmp endr04 



.end 



D 
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The Potpourri Disk 



Help! 



This HELPful utility gives you instant 
menu-driven access to text files 
at the touch of a key - while any 

program is running! 



Loan Helper 



How much is that loan really going 
to cost you? Which interest rate 
can you afford? With Loan Helper, 
the answers are as close as your 
friendly 64! 



Keyboard 



Learning how to play the piano? 
This handy educational program 
makes it easy and fun to learn the 
notes on the keyboard. 



War Balloons 



Shoot down those evil Nazi War 
Balloons with your handy Acme 
Cannon! Don't let them get away! 



Von Googol 



At last! The mad philosopher, 
Helga von Googol, brings her own 
brand of wisdom to the small 
screen! If this is *AI', then it just ain't 
natural! 



News 



Save the money you spend on 
those supermarket tabloids - this 
program will generate equally 
convincing headline copy - for 
free! 



Bag the Elves 



A cute little arcade-style game; 
capture the elves in the bag as 
quickly as you can - but don't get 
the good elf! 



Blackjack 



The most flexible blackjack simula- 
tion you'll find anywhere. Set up 
your favourite rule variations for 
doubling, surrendering and split- 
ting the deck. 



File Compare 



Which of those two files you just 
created is the most recent ver- 
sion? With this great utility you'll 
never be left wondering. 



Flledump 



Examine your disk files FAST with 
this machine language utility. 

Handles six formats, including hex, 

decimal, CBM and true ASCII, 
WordPro and SpeedScript. 



Wrd 



The ultimate in easy-to-use data 
base programs. WRD lets you 
quickly and simply create, exam- 
ine and edit just about any data. 
Comes with sample file. 



Ghoul Dogs 



Arcade maniacs look out! You'll 
need all your dexterity to handle 
this wicked joystick-buster! These 
mad dog-monsters from space 
are not for novices! 



Anagrams 



Anagrams lets you unscramble 
words for crossword puzzles and 
the like. The program uses a recur- 
sive ML subroutine for maximum 
speed and efficiency. 



Quiz 



Trivia fanatics and students alike 
will have fun with this program, 
which gives you multiple choice 
tests on material you have en- 
tered with the WRD program. 



Octagons 



Just the thing for you Mensa types. 
Octagons is a challenging puzzle 
of the mind. Four levels of play, 
and a tough 'memory' variation 
for real experts! 



Life 



A FAST machine language version 
of mathematician John Horton 
Conway's classic simulation. Set 
up your own 'colonies' and watch 
them grow! 



AHA! Lander 



AHAI's great lunar lander program. 
Use either joystick or keyboard to 
compete against yourself or up to 
8 other players. Watch out for 
space mines! 



Backstreets 



A nifty arcade game, 100% ma- 
chine language, that helps you 
learn the typewriter keyboard 
while you play! Unlike any typing 
program you've seen! 



All the above programs, just $17.95 US, $19.95 Canadian. No, not EACH of the 
above programs, ALL of the above programs, on a single disk, accessed 
independently or from a menu, with built-in menu-driven help and fast-loader. 

The ENTIRE POTPOURRI COLLECTION 

JUST $17.95 US!! 



See Order Card at Center 



GEOS LABEL NAMES 



A handy cross-reference table Compiled by Francis G. Kostella 



Alphabetical Listing 



BSW 

label 



Boyce hex 
label adr. 



Description 
of routine 



AB BSW 
page pg. 



AppendRecord 


APPEND 


C289 


BitmapClip 


DRAW 


C2AA 


BitnapOp 


CBOX 


C142 


BitOtherClip 


DRAW2 


C2C5 


BldGDirEntiy 


DIRKEM 


C1F3 


BlkAlloc 


FA11CC 


C1FC 


BlockProcess 


FORBID 


C10C 


BootGEOS 


REBOOT 


cooo 


BBMult 


UNUL88 


C160 


BMult 


UM168 


C163 


CalcBlksFree 


* NUMBLK 


C1DB 


CallRoutine 


INDJMP 


C1D8 


ChangeDiskDevice 


CHGDRV 


C2BC 


ChkDkGEOS 


GEOSCK 


C1DE 


ClearMouseMode 


RESETN 


C19C 


ClearRa* 


ZFILL 


C178 


CloseRecordFile 


VCXOSE 


C277 


CmpFString 


BLKCMP 


C26B 


CmpString 


STRCHP 


C26B 


CopyFString 


BLKMOV 


C268 


CopyString 


STRCPY 


C265 


CRC 


DECODE 


C20E 


Dabs 


ABS16 


C16F 


Ddec 


DEC16 


C175 


DeleteFile 


DELETE 


C238 


DeleteRecord 


REMOVE 


C283 


DisableSprite 


SPROFF 


C1D5 


Dnegate 


NEG16 


C172 


DoneWithIO 


CLSSER 


C25F 


DoDlgBox 


WINDOW 


C256 


Dolcons 


CBOXES 


C15A 


DoInlineReturn 


TBLJMP 


C2A4 


DoHenu 


MENU 


C151 


DoPreviousMenu 


CLSMNU 


CI 90 


DoRAMOp 


•> 

* 


C2D4 


DrawLine 


LINE 


C130 


DrawPoint 


PLOT 


C133 


DrawSprite 


COPYSP 


C1C6 


DDiv 


DD1616 


C169 


DMult 


OM1616 


C166 


DShiftLeft 


KASL 


C15D 


DShiftRight 


MLSR 


C262 


DSDiv 


SD1616 


C16C 


EnableProcess 


EXERTN 


C109 


EnableSprite 


SPRON 


C1D2 


EnterDeskTop 


RESTRT 


C22C 


EnterTurbo 


DSETUP 


C214 


ExitTurbo 


CLRRDY 


C232 


FastDelFile 


DELBT2 


C244 


FetchRAM 


? 


C2CB 


FillRan 


BLKFIL 


C17B 


FindBAMBit 


INUSE 


C2AD 


FindFile 


LOOKUP 


C20B 


FindFTypes 


TABLE 


C23B 


Firstlnit 


INIT01 


C271 


FollowChain 


TRACE 


C205 


FrameRectangle 


PBOX 


C127 


FreezeProcess 


STOP 


C112 


FreeBlock 


? 


C2B9 


FreeFile 


FREE 


C226 


GttBlock 


READ 


C1E4 


GetCharHidth 


CWIDTH 


C1C9 


GetDirHead 


RD180 


C247 


GetFile 


LOAD 


C208 


GetFreeDirBlk 


BOLE 


C1F6 


GetFHdrlnfo 


LOADAD 


C229 


GetNextChar 


GETIN 


C2A7 


GetPtrCurDkNa 


DRVNAM 


C298 


GetRandoa 


RANDOM 


C187 


GetRealSize 


CBARST 


C1B1 


GetScanLine 


ROWADR 


C13C 


GetSerialNuraber 


WHATIS 


C196 


GetString 


INPUT 


C1BA 


GoToFirstMenu 


CMENUS 


C1BD 


GraphicsString 


GRPHIC 


C136 


HorizontalLine 


HLINE 


CI 18 


Imprint Rectangle 


C0PYB3 


C250 


InitForlO 


OPNSER 


C25C 


InitProcesses 


CHDTBL 


C103 



36 
38 
?! 

78 

72 

172 



Add a VLIR chain 1-9 ?! 

Draw a coded image 1-22 94 

Draw a click box 1-12 92 

Draw a coded image with user patches 1-22 97 

Create a directory entry in memory 1-21 300 

Allocate sectors for a file 1-27 291 

Prevent a timed event from running 1-28 182 

Reboot GEOS 1-48 

Unsigned 8 bit by 8 bit multiply 1-56 190 

Unsigned 16 bit by 8 bit multiply 1-56 191 
Compute number of free blocks on disk 1-44 270 

Perform an indirect jump 1-32 210 

Change disk drive device number 1-14 215 

Check if a disk is GEOS format 1-29 256 

Reset the mouse 1-49 ?! 

Fill a memory region with zeros 1-62 206 

Close a VLIR file 1-57 319 

Memory block comparison 1-10 203 

String compare 1-53 202 

Memory block move 1-11 201 

String copy 1-53 200 

Compute checksum of a memory region 1-20 214 

16 bit absolute value 1-9 195 

Decrement a 16 bit integer 1-19 197 

Delete a file 1-20 266 

Remove a VLIR chain 1-49 322 

Turn off a sprite 1-52 175 

Negate a 16 bit integer 1-43 196 

Close serial communication 1-15 307 

Window processor 1-60 231 

Draw a table of click boxes (ICONS) 1-13 28 

Perform a lump through a table 1-54 ?! 

Menu processor 1-42 

Close current menu 1-15 

Draw/Erase/Copy an arbitrary line 1-37 
Draw/Erase /Copy a point on the screen 1-46 

Copy a sprite data block 1-18 

Unsigned 16 bit division 1-55 193 

Unsigned 16 bit by 16 bit multiply 1-56 192 

Multiple 16 bit arithmetic shift left 1-41 188 

Multiple 16 bit logical shift right 1-43 189 

Signed 16 bit division 1-51 194 

Force a recurring timed event to run 1-27 186 

Turn on a sprite 1-52 174 

Load and run DESKTOP 1-49 269 

Set up a drive with turboDOS 1-24 309 

Stop turboDOS in a drive 1-14 ?! 

Delete a temporary file 1-20 302 

91 

• * 

Memory block fill 1-10 207 

Check if a disk sector is in use 1-35 296 

Lookup a file in the directory 1-40 263 

Create a table of file names 1-54 257 

Initialize GEOS variables 1-32 213 

Create a list of sectors used by file 1-55 301 

Draw an outline in a pattern 1-45 84 

Stop a recurring timed event's timer 1-53 183 
Free a block in the BAM 297 

Free a file's sectors 1-29 304 

Read a sector 1-48 272 

Get a character's width 1-19 126 

Read track 18 sector 1-47 281 

Load a file, given a file name 1-37 259 

Find a hole in the directory 1-32 289 

Get a file's load address 1-39 276 

Read a character from the keyboard 1-30 119 

Compute address of disk's name 1-23 254 

Change the random number 1-47 198 

Get a character's stats 1-13 125 

Compute memory address of screen row 1-50 102 

Get user serial number 1-59 211 

Read a line of text from the user 1-33 111 

Close all menu levels 1-16 39 

Process a graphic command table 1-30 100 

Draw a horizontal line in a pattern 1-31 74 

Copy a box from screen 2 to screen 1 1-17 88 

Open serial communication 1-45 306 

Initialize table of timed events 1-16 180 



Alphabetical Listing 



BSW 

label 



Boyce hex Description 
label adr. of routine 



AB BSW 
page pg. 



InitRam 


BLKSET 


C181 


InitTextPrompt 


MAKCUR 


C1C0 


InsertRecord 


INSERT 


C286 


Inter ruptMa in 


IRQRTN 


C100 


InvertLine 


INVLIN 


CUB 


Invert Rectangle 


INVBOX 


C12A 


IsMselnRegion 


CKMOUS 


C2B3 


I BitmapUp 


CB0X2 


C1AB 


I~FillRam 


BLKFL2 


C1B4 


I_PrameRect angle 


PBOX2 


C1A2 


I_GraphicsString 


GRPHC2 


C1A8 


I ImprintRectang] 


e COPYB4 


C253 


I_MoveData 


INTBM2 


C1B7 


I_PutString 


DSPTX2 


C1AE 


IJtecoverRectang] 


e COPYB2 


C1A5 


IJtectangle 


PFILL2 


C19F 


LdApplic 


LOAD3 


C21D 


LdDeskAcc 


LOADSW 


C217 


LdFile 


LOAD2 


C211 


LoadCharSet 


FONT 


C1CC 


MainLoop 


MAIN 


C1C3 


MouseOff 


MOUSOF 


C18D 


MouseUp 


MOUSON 


C18A 


MoveData 


INTBM 


C17E 


NewDisk 


INITDV 


C1E1 


NextRecord 


NEXT 


C27A 


NxtBlkAlloc 


FALOC2 


C24D 


OpenDisk 


OPNDSK 


C2A1 


OpenRecordFile 


VOPEN 


C274 


Panic 


SYSERR 


C2C2 


PointRecord 


GOTO 


C280 


PosSprite 


POSSPR 


C1CF 


PreviousRecord 


PREV 


C27D 


PromptOff 


CURSOF 


C29E 


Prompt On 


CURSON 


C29B 


PurgeTurbo 


CLRSTS 


C235 


PutBlock 


WRITE 


C1E7 


PutChar 


DSPCHR 


C145 


Put Decimal 


DSPNUM 


C184 


PutDirHead 


WR180 


C24A 


PutString 


DSPTXT 


C148 


ReadBlock 


READ2 


C21A 


ReadByte 


GETBYT 


C2B6 


ReadFile 


LCBAIN 


C1FF 


ReadRecord 


VLOAD 


C28C 


Recover AllMenus 


ERAMNS 


C157 


RecoverLine 


COPYL 


CUE 


RecoverMenu 


ERAHNU 


C154 


RecoverRect angle 


COPYB 


C12D 


Rectangle 


PFILL 


C124 


RenameFile 


RENAME 


C259 


Res tart Process 


ENABLE 


C106 


ReDoMenu 


DRWMNU 


C193 


RstrAppl 


LDSWAP 


C23E 


RstrFrmDialog 


CLSWIN 


C2BF 


SaveFile 


SAVE 


C1ED 


SetDevice 


DRVSET 


C2B0 


SetGDirEntry 


DIRDSK 


C1F0 


SetGEOSDisk 


CONVRT 


C1EA 


SetNextFree 


ALLOC 


C292 


SetPattern 


SETPAT 


C139 


Sleep 


DELAY 


C199 


SmallPutChar 


DRAWCB 


C202 


StartAppl 


RUN 


C22F 


StartMouseMode 


INITMS 


C14E 


StashRAM 


? 


C2C8 


SwapRAM 




C2CE 


TestPoint 


TEST 


C13F 


ToBasic 


BASIC 


C241 


UnblockProcess 


PERMIT 


C10F 


UnfreezeProcess 


START 


C115 


UpdateRecordFile 


UPDATE 


C295 


UseSystemFont 


SELBSW 


C14B 


VerifyRAM 





C2D1 


VerticalLine 


VLINE 


C121 


VerWriteBlock 


CWRITE 


C223 


HriteBlock 


WRITE2 


C220 


WriteFile 


SAVE2 


C1F9 


WriteRecord 


VSAVE 


C28F 



Multiple memory location init. 1-11 208 

Create the text cursor sprite 1-41 120 

Insert a VLIR chain 1-34 ?! 

IRQ routine 1-36 

Reverse video a horizontal line 1-35 76 

Reverse video a box 1-35 86 

Check if mouse is inside a window 1-14 153 
Draw a click box with inline data 1-12 92 
Memory block fill with inline data 1-11 207 
Inline Draw a solid outline 1-45 84 

Inline Process a graphic cmnd table 1-30 100 
Inline Copy a box from screen 2 to 1 1-17 88 
Inline Intelligent memory block move 1-34 205 
Inline Display a text string 1-26 108 

Inline Copy a box from screen 1 to 2 1-17 87 
Inline Fill a box with a pattern 1-46 83 

Load and run a file, given dir entry 1-38 284 
Load a file with memory swapping 1-39 

Load a file, given a directory entry 1-38 287 
Activate a memory resident font 1-28 132 

GEOS's main loop 1-40 

Turn off the mouse 1-43 150 

Turn on the mouse 1-43 151 

Intelligent memory block move 1-34 205 

Initialize a drive 1-32 283 

Move to next VLIR chain 1-44 321 

Allocate sectors for a file 1-28 293 

Open a disk 1-44 253 

Open a VLIR file 1-58 318 

Report system error 1-54 204 

Goto a specific VLIR chain 1-30 321 

Position a sprite 1-47 173 

Move to previous VLIR chain 1-47 321 

Turn off the text cursor 1-18 122 

Turn on the text cursor 1-18 121 

Stop and remove turbodos in a drive 1-15 308 
Write a sector 1-62 274 

Display a character 1-24 123 

Display a 16 bit integer 1-25 109 

Write to track 18 sector 1-62 282 

Display a text string 1-26 108 

Read a sector with drive preset 1-48 310 

Get a byte from a file 1-29 280 

Load a chain into memory, given TiS 1-36 277 

Load a VLIR chain 1-58 324 

Erase all menus 1-27 ?! 
Copy a line from screen 2 to screen 1 1-18 77 

Erase the current menu 1-27 ?14 

Copy a box from screen 1 to screen 2 1-17 87 

Fill a box with a pattern 1-46 83 

Rename a file 1-49 268 

Enable a recurring timed event .START 1-26 181 

Draw the current menu 1-23 37 

Load the SWAPFILE 1-36 ?! 

Close a window 1-15 232 

Save memory to a file 1-51 264 

Select a drive 1-23 252 

Create a directory entry on disk 1-21 298 

Convert a disk to GEOS format 1-16 255 

Find and allocate a disk block 1-9 295 

Select a fill pattern 1-52 82 

Set up a time delay 1-20 184 

Draw a character on the screen 1-23 ?! 

Run a program that is in memory 1-50 ?! 

Initialize the mouse 1-33 149 

?! 
?! 

Test the value of a pixel 1-55 73 

Restart BASIC 1-10 212 

Allow a recurring timed event to run 1-45 182 

Start a recurring timed events timer 1-53 183 

Update a VLIR file 1-57 320 

Select the BSW font 1-52 133 

?! 

Draw a vertical line in a pattern 1-57 75 

Verify before writing sector 1-19 ?! 

Write a sector with drive preset 1-62 312 

Save memory to preallocated sectors 1-51 276 

Save memory to a VLIR chain 1-59 323 
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BootGEOS 


REBOOT 


COOO 


InterruptMain 


IRQRTN 


C100 


InitProcesses 


CMDTBL 


C103 


Rest art Process 


ENABLE 


C106 


EnableProcess 


EXERTN 


C109 


BlockProcess 


FORBID 


C10C 


OnblockProcess 


PERMIT 


C10F 


FreezeProcess 


STOP 


C112 


UnfreezeProcess 


START 


C115 


BorizontalLine 


HLINE 


C118 


Invert Line 


IWVLIN 


CUB 


RecoverLine 


COPYL 


cue 


Vertical Line 


VLINE 


C121 


Rectangle 


PFILL 


C124 


FrameRect angle 


PBOX 


C127 


Invert Rectangle 


IKVBOX 


C12A 


RecoverRectangle 


COPYB 


C12D 


DrawLine 


LINE 


C130 


DrawPoint 


PLOT 


0133 


GraphicsString 


GRPBIC 


C136 


SetPattem 


SETPAT 


C139 


GetScanLine 


ROWADR 


CI 30 


TestPoint 


TEST 


C13F 


BitaapUp 


CBOX 


C142 


PutChar 


DSPCHR 


C145 


PutString 


DSPTXT 


C148 


OseSysteaFont 


SELBSH 


C14B 


StartMouseMode 


INITMS 


CHE 


DoMenu 


MENU 


C151 


RecoverMenu 


ERAMNU 


0154 


RecoverAllMenus 


ERAMNS 


0157 


Dolcons 


CBOXES 


C15A 


DShiftLeft 


MASL 


C15D 


BBMult 


UMUL88 


C160 


Bttult 


OH168 


C163 


DKult 


UH1616 


C166 


DOiv 


DD1616 


CI 69 


DSDiv 


SD1616 


0160 


Dabs 


ABS16 


C16F 


Dnegate 


NEG16 


C172 


Ddec 


DSC16 


C175 


ClearRaa 


ZFILL 


0178 


FillRam 


BLKFIL 


C17B 


MoveData 


INTBM 


C17E 


Ir.it Ram 


BLKSET 


C181 


PutDecimal 


DSPNUM 


C184 


GetRandom 


RANDOM 


C187 


MouseDp 


MOUSON 


C18A 


HouseOff 


MOUSOF 


C18D 


DoPreviousMenu 


CLSMNU 


CI 90 


ReDoMenu 


DRWMNU 


C193 


GetSerialNumber 


WHATIS 


CI 96 


Sleep 


DELAY 


CI 99 


ClearMouseMode 


RESETM 


C19C 


I -Rectangle 


PFILL2 


C19F 


I-FrameRectangle 


PBOX2 


C1A2 


I-RecoverRectangL 


i C0PYB2 


C1A5 


I-Graphics String 


GRPHC2 


C1A8 


I -BitaapUp 


CB0X2 


CUB 


I -PutString 


DSPTX2 


C1AE 


GetRealSize 


CBARST 


C1B1 


I-FillRam 


BLRTL2 


C1B4 


I -MoveData 


INTBM2 


C1B7 


GetString 


INPUT 


C1BA 


GoToFirstMenu 


CMENUS 


C1BD 


Init Text Prompt 


MAKCDR 


C1C0 


MainLoop 


MAIN 


C1C3 


DrawSprite 


COPYSP 


C1C6 


GetCharWidth 


CHIDTH 


C1C9 


LoadCharSet 


FONT 


C1CC 


PosSprite 


POSSPR 


C1CF 


BnableSprite 


SPRON 


C1D2 


DisableSprite 


SPROFF 


C1D5 


CallRoutine 


INDJMP 


C1D8 


CalcBUsFree 


NUMBLK 


C1DB 


ChkDkGEOS 


GEOSCK 


C1DE 


NewDisk 


INITDV 


C1E1 


GetBlock 


READ 


C1E4 


PutBlock 


WRITE 


C1E7 



74 
76 
77 
75 
83 
84 
86 
87 
78 
72 



Reboot GEOS 1-48 

IRQ routine 1-36 

Initialize table of timed events 1-16 180 

Enable a recurring timed event, START 1-26 181 
Force a recurring timed event to run 1-27 186 
Prevent a timed event from running 1-28 182 
Allow a recurring timed event to run 1-45 182 
Stop a recurring timed event's timer 1-53 183 
Start a recurring timed events timer 1-53 183 
Draw a horizontal line in a pattern 
Reverse video a horizontal line 
Copy a line from screen 2 to screen 1 
Draw a vertical line in a pattern 
Fill a box with a pattern 
Draw an outline in a pattern 
Reverse video a box 
Copy a box from screen 1 to screen 2 
Draw/Erase /Copy an arbitrary line 
Draw/Erase/Copy a point on the screen 
Process a graphic command table 
Select a fill pattern 
Compute memory address of screen row 
Test the value of a pixel 
Draw a click box 
Display a character 
Display a text string 
Select the BSH font ' 
Initialize the mouse 
Menu processor 
Erase the current menu 
Erase all menus 

Draw a table of click boxes (ICONS) 
Multiple 16 bit arithmetic shift left 
Unsigned 8 bit by 8 bit multiply 
C163 Unsigned 16 bit by 8 bit multiply 
C166 Unsigned 16 bit by 16 bit multiply 
Unsigned 16 bit division 
Signed 16 bit division 
16 bit absolute value 
Negate a 16 bit integer 
Decrement a 16 bit integer 
Fill a memory region with zeroes 
Memory block fill 
Intelligent memory block move 
Multiple memory location init. 
Display a 16 bit integer 
Change the random number 
Turn on the mouse 
Turn off the mouse 
Close current menu 
Draw the current menu 
Get user serial number 
Set up a time delay 
Reset the mouse 

Inline Fill a box with a pattern 1-46 83 

Inline Draw a solid outline 1-45 84 

Inline Copy a box from screen 1 to 2 1-17 87 
Inline Process a graphic cmnd table 1-30 100 
Draw a click box with inline data 1-12 92 
Inline Display a text string 1-26 108 

Get a character's stats 1-13 125 

Memory block fill with inline data 1-11 207 
Inline Intelligent memory block move 1-34 205 
Read a line of text from the user 1-33 111 
Close all menu levels 1-16 39 

Create the text cursor sprite 1-41 120 

GEOS's main loop 1-40 

Copy a sprite data block 1-18 172 

Get a character's width 1-19 126 

Activate a memory resident font 1-28 132 

Position a sprite 1-47 173 

Turn on a sprite 1-52 174 

Turn off a sprite 1-52 175 

Perform an indirect jump 1-32 210 

Compute number of free blocks on disk 1-44 270 
Check if a disk is GEOS format 1-29 256 

Initialize a drive 1-32 283 

Read a sector 1-48 272 

Write a sector 1-62 274 



1-31 
1-35 
1-18 
1-57 
1-46 
1-45 
1-35 
1-17 
1-37 
1-46 
1-30 100 
1-52 82 
1-50 102 
1-55 73 
1-12 92 
1-24 123 
1-26 108 
1-52 133 
1-33 149 
1-42 36 
1-27 HI 
1-27 ?! 
1-13 28 
1-41 1B8 
1-56 190 
1-56 191 
1-56 192 
1-55 193 
1-51 194 
1-9 195 
1-43 196 
1-19 197 
1-62 206 
1-10 207 
1-34 205 
1-11 208 
1-25 109 
1-47 198 
1-43 151 
1-43 150 
1-15 38 
1-23 37 
1-59 211 
1-20 184 
1-49 ?! 
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SetGEOSDisk 


CONVRT 


C1EA 


SaveFile 


SAVE 


C1ED 


SetGDirEntry 


DIRDSK 


C1F0 


BldGDirEntry 


DIRMEM 


C1F3 


GetFreeDirBlk 


HOLE 


C1F6 


WriteFile 


SAVE2 


C1F9 


BlkAlloc 


FALLOC 


C1FC 


ReadFile 


LCBAIN 


C1FF 


SmallPutChar 


DRAWCH 


0202 


FollowChain 


TRACE 


C205 


GetFile 


LOAD 


0208 


FindFile 


LOOKUP 


C20B 


CRC 


DECODE 


C20E 


LdFile 


LOAD2 


C211 


EnterTurbo 


DSETUP 


C214 


LdDeskAcc 


LOADSW 


C217 


ReadBlock 


READ2 


C21A 


LdAppIic 


LOAD3 


C21D 


WriteBlock 


HRITE2 


C220 


VerWriteBlock 


CWRITE 


C223 


Free? lie 


FREE 


0226 


GetFHdrlnfo 


LOADAD 


C229 


EnterDeskTop 


RESTRT 


C22C 


StartAppl 


RUN 


C22F 


ExitTurbo 


CLRRDY 


C232 


PurgeTurbo 


CLRSTS 


C235 


DeleteFile 


DELETE 


C238 


PindFTypes 


TABLE 


C23B 


RstrAppl 


LDSWAP 


C23E 


ToBasic 


BASIC 


C241 


FastDelFile 


DELET2 


C244 


Get Dir Head 


RD180 


C247 


PutDirHead 


WR180 


C24A 


NxtBlkAlloc 


FAL0C2 


C24D 


Imprint Rectangle 


COPYB3 


C250 


I-ImprintRectangl 


e COPYB4 


C253 


DoDlgBox 


WINDOW 


C256 


Re r. are File 


RENAME 


C259 


InitPorlO 


OPNSER 


C25C 


DoneWithIO 


CLSSER 


C25F 


DShiftRight 


MLSR 


C262 


CopyString 


STRCPY 


C265 


CopyFString 


BLKMOV 


C268 


CmpString 


STRCMP 


C26B 


CmpFString 


BLKCMP 


C26E 


Firstlnit 


INIT01 


C271 


OpenRecordFile 


VOPEN 


C274 


CloseRecordFile 


VCLOSE 


C277 


NextRecord 


NEXT 


C27A 


PreviousRecord 


PREV 


C27D 


PointRecord 


GOTO 


C280 


DeleteRecord 


REMOVB 


C283 


InsertRecord 


INSERT 


C286 


AppendRecord 


APPEND 


C289 


ReadRecord 


VLOAD 


C28C 


WriteRecord 


VSAVE 


C28F 


SetNextFree 


ALLOC 


C292 


UpdateRecordFile 


UPDATE 


C295 


GetPtrCurDkNm 


DRVNAM 


C298 


Prompt On 


CURSON 


C29B 


PromptOff 


CURSOF 


C29E 


OpenDisk 


OPNDSK 


C2A1 


DoInlineReturn 


TBLJMP 


02A4 


GetNextChar 


GETIN 


C2A7 


BitmapClip 


DRAW 


C2AA 


FindfiAMBit 


INUSE 


C2AD 


SetDevice 


DRVSET 


C2B0 


IsMselnRegion 


CKMOUS 


C2B3 


ReadByte 


GETBYT 


02B6 


FreeBlock 





C2B9 


ChangeDiskDevice 


CHGDRV 


C2BC 


RstrFrmDialog 


CLSWIN 


C2BF 


Panic 


SYSERR 


C2C2 


BitOtherClip 


DRAW2 


C2C5 


StashRAM 


* 


C2C8 


FetchRAM 


? 


C2CB 


SwapRAM 


? 


C2CE 


VerifyRAM 


■ 


C2D1 


DoRAMOp 


•> 


C2D4 



Convert a disk to GEOS format 

Save memory to a file 

Create a directory entry on disk 

Create a directory entry in memory 

Find a hole in the directory 

Save memory to preallocated sectors 

Allocate sectors for a file 

Load a chain into memory, given TiS 

Draw a character on the screen 

Create a list of sectors used by file 

Load a file, given a file name 

Lookup a file in the directory 

Compute checksum of a memory region 

Load a file, given a directory entry 

Setup a drive with turbodos 

Load a file with memory swapping 

Read a sector with drive preset 

Load and run a file, given dir entry 

Write a sector with drive preset 

Verify before writing sector 

Free a file's sectors 

Get a file's load address 

Load and run DESKTOP 

Run a program that is in memory 

Stop turbodos in a drive 

Stop and remove turbodos in a drive 

Delete a file 

Create a table of file names 

Load the SHAPFILE 

Restart BASIC 

Delete a temporary file 

Read track 18 sector 

Write to track 18 sector 

Allocate sectors for a file 

Copy a box from screen 2 to screen 1 

Inline Copy a box from screen 2 to 1 

Window processor 

Rename a file 

Open serial communication 

Close serial communication 

Multiple 16 bit logical shift right 

String copy 

Memory block move 

String compare 

Memory block comparison 

Initialize GEOS variables 

Open a VXIR file 

Close a VLIR file 

Move to next VLIR chain 

Move to previous VLIR chain 

Goto a specific VLIR chain 

Remove a VLIR chain 

Insert a VLIR chain 

Add a VLIR chain 

Load a VLIR chain 

Save memory to a VLIR chain 

Find and allocate a disk block 

Update a VLIR file 

Compute address of disk's name 

Turn on the text cursor 

Turn off the text cursor 

Open a disk 

Perform a jump through a table 

Read a character from the keyboard 

Draw a coded image 

Check if a disk sector is in use 

Select a drive 

Check if mouse is inside a window 

Get a byte from a file 

Free a block in the BAM 

Change disk drive device number 

Close a window 

Report system error 

Draw a coded image with user patches 



287 
309 

310 
284 



1-16 255 

1-51 264 

1-21 298 

1-21 300 

1-32 289 

1-51 276 

1-27 291 

1-36 277 

1-23 ?! 

1-55 301 

1-37 259 

1-40 263 

1-20 214 

1-38 

1-24 

1-39 

1-48 

1-38 

1-62 312 

1-19 ?! 

1-29 304 

1-39 276 

1-49 269 

1-50 ?! 

1-14 ?! 

1-15 308 

1-20 266 

1-54 257 

1-36 ?! 

1-10 212 

1-20 302 

1-47 281 

1-62 282 

1-28 293 

1-17 86 

1-17 88 

1-60 231 

1-49 268 

1-45 306 

1-15 307 

1-43 189 

1-53 200 

1-11 201 

1-53 202 

1-10 203 

1-32 213 

1-58 316 

1-57 319 

1-44 321 

1-47 321 

1-30 321 

1-49 322 

1-34 ?! 

1-9 ?! 

1-58 324 

1-59 323 

1-9 295 

1-57 320 

1-23 254 

1-18 121 

1-18 122 

1-44 253 

1-54 ?! 

1-30 119 

1-22 94 

1-35 296 

1-23 252 

1-14 153 

1-29 280 

297 

1-14 215 

1-15 232 

1-54 204 

1-22 97 

?! 
•jr 

• ■ 

?! 
?! 
?! 
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Gamemaker's ML Grab-Bag 



Splits, sprites and special effects 



by Zoltan Hunt 

© 1988 Zoltan Hunt 

Let's face it, there are more interesting ways of displaying the 
player's lives than printing a number like *3\ *4\ or '6\ The 
same goes for energy, power or strength of the player. Are you 
tired of writing games with sprites that stop about three- 
quarters of the way across the screen? How about those key- 
board-character displays - wouldn't a hi-res screen with a text 
window at the bottom look better? While we're at it, how 
about a more interesting screen clear and a box drawing rou- 
tine? By using a few simple text-oriented routines to display- 
player status information at the bottom of the screen, along 
with the split screen and sprite movement routines to handle 
the hi-res action above, you have a simple toolkit with which 
to begin building your machine language video game. 

Boxes, Strength, Lives and Screens 

The BOX routine will print a box of any size at the current cur- 
sor position, drawn with the character of your choice. 



Example: 

Ida #10 
sta lx 
Ida #10 
sta hi 
Ida #5 
sta xd 
Ida #5 
sta yd 
Ida #"x" 
sta boxchr 
jsr box 



box width 
width variable 
box height 
height variable 

distance from left side of screen 
x distance variable 
distance from top of screen 
y distance 

character to be printed 
character variable 
go! 



The colour of the box can be specified by something like this; 
kia#2:jsr$ffd2:jsrbox 



The two routines enepnt and envpnt will display a value (0- 
255) in the form of a bar horizontally or vertically on the 
screen (something like the player's energy levels in ARCHON or 
similar games). The colour is selected the same way as with 
BOX, and the bar can be positioned anywhere on the screen 
using the Kernal routine plot (SFFFO) to position the cursor: 

ldx #row number: ldy #column 
clc: jsr plot 

To use enepnt and envpnt: 

Ida #45 ;player's energy 
sta energy ; energy byte 
jsr enepnt ;or envpnt 

Another use for this routine could be in a graphing program 
with numbers larger than 255 scaled down (e.g. divided by 2 
or 4 or whatever before being stored in ENERGY). 

Now we come to the routines prhmen and prvmen that print a 
player's lives, ships, shots or whatever. Using these is easy: 

Ida #number /number you want printed 
sta pmem /register 
jsr prhmen ; or prvmen 

The word "men: " can be changed to anything, but be sure to 
add the right number of cursor-lefts after it. The program, as it 
is, prints the solid ball character - this can be changed to any 
other character. Try using different characters and colours to 
indicate the various values of interest. 

Finally, we come to the last routine in this section, CLRSCR. 
This gives your program that "disintegrating" effect found in 
some programs. It is called simply with a JSR: 

jsr clrscr 



Once again you can change the character it prints - a blank 
space - to anything you want. 



This will print the box in red. Another effect possible is by 
drawing the box in the center and then decreasing XD and YD 
while increasing LX and HI and calling BOX each time. This 
will make the box grow, making an interesting finish to a 
game (by printing blank spaces, this could also be used for Now we move on to the last two and perhaps most interesting 

clearing screens). 



routines. 
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SPLIT and SEAM 

SPLIT splits the screen into two parts: a multi-colour hi-res 
screen on top, and a regular text screen on the bottom five 
lines. 

Using it is easy. Set the bottom text background colour with 
the variable IRQTWCOL. Select text or text/hi-res with a or a 
1 in IRQSELC. 

Here then is a short example: 

Ida #0 * 

sta irqselc ; set screen to text/hi-res 

Ida #1 

sta irqtwcol ; set text window colour to white 

jsr split 

This routine is one of the most important in many applications, 
notably games, and is good if you want to easily give the play- 
er information, while leaving your richly detailed hi-res mas- 
terpiece intact. It can also be used in direct mode, letting you 
edit or run a program while seeing a high-res screen partially 
displayed. To change the number of text lines that are dis- 
played, change the byte stored in *splin\ It is currently set to 
20 lines, leaving five lines at the bottom; making it smaller 
will move the split higher up on the screen. This value can 
also be changed dynamically, creating a "curtain" effect as the 
border between graphics and text moves up or down. 

Now we come to the last routine: it lets you position a sprite 
anywhere on the screen without having to work with the sprite 
registers and numbers greater than 255 (great for machine lan- 
guage programmers) 

The best way to show it is through example, so here we go: 

ldx #40 /this is half the x position of your sprite 

stx xpos ; store it in the x variable 

ldy #50 ;this is the y position 

sty ylo ; store in the y variable 

Ida #0 ;this is sprite you want moved (0-7) 

sta xpsnum 

jsr seam ; go to it 

Ida #1 ; sprite to turn on 

sta 53269; turn it on 

This will move your sprite anywhere on the screen. One thing 
to note though: the X position is doubled, so that storing 40 in 
'xpos' will place the sprite at position 80 on the screen. If you 
need to position a sprite precisely, put the low byte in the 
accumulator, the high byte (0 or 1) in 4 xhi\ and jsr 'seam2' 
instead of 'seam'. 

I hope these routines will find their way into some of your pro- 
grams (I already have one in mind that will make heavy use of 
SEAM). You should be able to modify them to suit your own 
needs if required. 



DP 


100 sys 700 ;pal 64 


GN 


110 .opt oo 


BM 


120 ; "box" 


CN 


130 ; draws a box given left edge, 


KN 


140 ; top edge, width and height 


AI 


150 ; in "xd", "yd", "lx", "hi". 


LL 


160 ; character in "boxchr". 


AC 


170 ; 


PI 


180 box =* 


0M 


190 Ida #"{clr}" 


AF 


200 jsr $ffd2 ; optional clear 


CD 


210 boxll =* 


51 


220 ldx yd 


01 


230 ldy xd 


GG 


240 clc 


FL 


250 jsr $fff0 ; position cursor 


LE 


260 ldx #0 


AH 


270 box31 =* 


AG 


280 Ida boxchr 


IM 


290 jsr $ffd2 /print char 


IA 


300 inx 


IA 


310 cpx lx 


CM 


320 bne box31 


DJ 


330 ldx #1 


HL 


340 box41 «* 


MI 


350 Ida #"{left}" 


BA 


360 jsr $ffd2 


MP 


370 Ida #"{down}" 


FB 


380 jsr $ffd2 


0M 


390 Ida boxchr 


JC 


400 jsr $ffd2 


GH 


410 inx 


EF 


420 cpx hi 


ED 


430 bne box41 


BA 


440 ldx #1 


GC 


450 box51 =* 


KP 


460 Ida #"{left)" 


PG 


470 jsr $ffd2 


ML 


480 inx 


ML 


490 cpx lx 


OH 


500 bne box51 


HE 


510 ldx #1 


NG 


520 box61 =* 


MB 


530 Ida #"{up}" 


FL 


540 jsr $ffd2 


CA 


550 inx 


AO 


560 cpx hi 


IM 


570 bne box61 


NI 


580 ldx #1 


EL 


590 box71 =* 


GI 


600 Ida #"{left}" 


LP 


610 jsr $ffd2 


GP 


620 Ida #"{down}" 


PA 


630 jsr $ffd2 


IM 


640 Ida boxchr 


DC 


650 jsr Sffd2 


AH 


660 inx 


0E 


670 cpx hi 


KD 


680 bne box71 


LP 


690 ldx #1 


DC 


700 box81 =* 


OA 


710 Ida boxchr 


JG 


720 jsr $ffd2 


GL 


730 inx 


GL 


740 cpx lx 


EI 


750 bne box81 


EO 


760 rts 


DP 


770 lx .byte 15 ;width 


PL 


790 hi .byte 10 ;height 


HN 


800 xd .byte .'distance x from side 


GE 


810 yd .byte ,'distance y from top 


AI 


820 boxchr .asc "*";char used 


DP 


100 sys 700 ;pal 64 


GN 


110 .opt oo 


AA 


120 ; "enepnt" 


LN 


130 ; this routine can be used to 
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EJ 140 ; show a player's energy level 


JC 


460 energy .byte 100 ;player energy 


1 MA 150 ; 


OD 


470 ecount .byte 


1 EI 160 enepnt =* 


PB 


480 sbox .asc "{rvs} {rvs off } {left} {up}": .byte 


DA 170 Ida energy 


KE 


490 pntel .asc "{logo-<a} {left}{up}": 


: . byte 


MF 180 sta ecount 


MG 


500 pnte2 .asc "{logo-p}{left}{up}": 


: .byte 


JL 190 eploop =* 


MI 


510 pnte3 .asc "{logo-o}{left} {up}": 


: .byte 


CD 200 Ida ecount 


KG 


520 pnte4 .asc "{logo-i}{left}{up}": 


; . byte 


DF 210 sec 


CL 


530 pnte5 .asc "{rvs}{logo-u}{rvs off } {left} {up}" : .byte 


HO 220 sbc #8 


LL 


540 pnte6 .asc "{rvs} {logo-y} {rvs off } {left} {up}" : .byte 


, ME 230 bcc pntpar 


LI 


550 pnte7 .asc "{rvs} {logo-t}{rvs off } {left} {up}": .byte 


IJ 240 sta ecount 


GK 


560 ; 


LO 250 Ida #<sbox 


CG 


570 pnvtab .word 0, pntel, pnte2, pnte3 


BF 260 ldy #>sbox 


JK 


580 .word pnte4, pnte5, pnte6, pnte7 


LH 270 jsr $able; print a solid square 






HM 280 jmp eploop 






ID 290 pntpar =* 


DP 


100 sys 700 ;pal 64 


GJ 300 Ida ecount 


GN 


110 .opt oo 


BI 310 beq enpnt ;done printing 


DA 


120 ; "prhmen" 


IB 320 asl: tax ; index into table 


OM 


130 ;this routine prints the player's 


PM 330 Ida pntab+l,x 


MK 


140 ;men but could be used to represent 


DC 340 tay 


PA 


150 ; energy levels, strength, etc 


EF 350 Ida pntab,x 


GB 


160 ; 


OK 360 jsr $able ;print bar char 


FJ 


170 prhmen =* 


10 370 ; 


MM 


180 Ida #<prnmen 


MO 380 enpnt ■* 


CD 


190 ldy #>prnmen 


GI 410 rts 


LM 


200 jsr $able ;print it 


KB 420 ; 


IE 


210 ; 


EB 430 energy .byte 21 ;player energy 


IF 


220 ldx pmen ;get number of men 


AC 440 ecount .byte 


GD 


230 Ida #"Q" ;this char represents men 


OC 450 sbox .asc "{rvs} {rvs off}":. byte 


PN 


240 menlop =* 


LF 460 pntel .asc "{logo-g}": .byte 


ME 


250 jsr $ffd2 ; print it 


HI 470 pnte2 .asc "{logo-j}": .byte 


OM 


260 dex ;have we printed them all 


LG 480 pnte3 .asc "{logo-k}": .byte 


AH 


270 bne menlop 


HH 490 pnte4 .asc "{logo-k}": .byte 


EA 


280 rts 


HI 500 pnte5 .asc "{rvs}{logo-l}{rvs off}":. byte 


OA 


290 pmen .byte 5 


PG 510 pnte6 .asc "{rvs}{logo-n}{rvs off}":. byte 


AK 


300 prnmen .asc "men: " 


CH 520 pnte7 .asc "{rvs}{logo-m}{rvs off} 1 *:. byte 


KC 


310 .byte 


II 530 ; 






JB 540 pntab .word 0, pntel, pnte2, pnte3 






LI 550 .word pnte4, pnte5, pnte6, pnte7 


FD 


100 sys 700 




JM 


110 : .opt oo 




PB 


120 ; "prvmen" 


DP 100 sys 700 ;pal 64 


PN 


130 ;this is almost the same as 


GN 110 .opt oo 


HB 


140 ;prhmen but prints the men 


CC 120 ; "envpnt" 


DN 


150 ;down insted of across 


PI 130 ; displays a vertical 


GB 


160 ; 


BD 140 ; bar graph of the value 


NM 


170 prvmen =* 


FE 150 ; in "ecount" 


01 


180 Ida #<pnmen 


GB 160 ; 


EP 


190 ldy #>pnmen 


CN 170 envpnt =* 


LM 


200 jsr $able ; print it 


HI 180 ; prints 'energy level' vertically 


OE 


210 ldx pmen ;get number of men 


HB 190 Ida energy 


PB 


220 menlop Ida #"{left}" 


AH 200 sta ecount 


PH 


230 jsr $ffd2 


NM 210 eploop =* 


KH 


240 Ida #"{down}" 


GE 220 Ida ecount 


DJ 


250 jsr $ffd2 


HG 230 sec 


EF 


260 Ida #"Q" ;this char represents men 


LP 240 sbc #8 


AG 


270 jsr $ffd2 ;print it 


AG 250 bcc pntpar 


CO 


280 dex ;have we printed them all 


MK 260 sta ecount 


EI 


290 bne menlop 


PP 270 Ida #<sbox 


IB 


300 rts 


FG 280 ldy #>sbox 


EK 


310 pmen .byte 5 ;number of men 


PI 290 jsr $able; print a solid square 


EO 


320 pnmen .asc "men: {left} {left} {left} {left}" 


LN 300 jmp eploop 


OD 


330 .byte 


ME 310 pntpar =* 






JM 320 ; print appropriate character 






EL 330 Ida ecount 


DP 


100 sys 700 ;pal 64 


BF 340 beq enpte 


GN 


110 .opt oo 


GD 350 asl: tax ; index into table 


LO 


120 ; 


"clrscr" 


BH 360 Ida pnvtab+l,x 


AA 


130 j 


: clears screen using 


BE 370 tay 


NI 


140 | 


: "dissolve" effect 


LM 380 Ida pnvtab,x 


MA 


150 ; 




AN 390 jsr $able 


HJ 


160 clrscr =* 


GA 400 ; 


BP 


170 ldx #0 


CP 410 enpte =* 


NC 


180 loop =* 


1 10 420 Ida #19 ;home cursor 


AC 


190 Ida #255 


HE 430 jsr $ffd2 


IL 


200 sta 54287 


EK 440 rts 


KC 


210 Ida #128 ;set up 


ID 450 ; 


JM 


220 sta 54290 
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CI 230 


sta 54296 ;sid chip 


BF 


620 


sta 53272 




AD 240 


ldy 54299 ;get random number 


MB 


630 


Ida 53265 




BI 250 


Ida #32 


GM 


640 


ora #32 


PH 260 


sta 1024, y 


OG 


650 


sta 53265 


OA 270 


sta 1024+256, y 


JD 


660 


Ida 53270 


■ 


CA 280 


sta 1024+512, y 


KO 


670 


ora #16 




HD 290 


sta 1024+768, y 


LI 


680 


sta 53270 




AB 300 


jsr delay 


BB 


690 


Ida splin ; split text line 




CB 310 


inx 


IK 


700 


asl: asl: asl ; convert to raster 




MA 320 


cpx #254 


ND 


710 


adc #50 




DO 330 bne loop 


IK 


720 


sta $d012 


^M 


EG 340 


Ida #"{clr} M 


AF 


730 


t 




HP 350 


jsr $ffd2 


IJ 


740 


irqend =* 




PH 360 


delay txa 


PM 


750 


Ida $dc0d 




00 370 


pha 


CB 


760 


lsr a 


, 


NM 380 


ldx #5 


DI 


770 


bcc irq2end 


:' 


OE 390 


clrsbd-ldy #0 


JJ 


780 


pla: tax 


| 


MC 400 


clrsyl dey 


HK 


790 


pla: tay 


I 


JJ 410 


bne clrsyl 


IK 


800 


pla 


■ 


LF 420 


dex 


DF 


810 


jmp $ea31 


; : 


IE 430 


bne clrsbd 


KK 


820 


t 


' 


AE 440 


pla 


CA 


830 


irq2end =* 


| 


NI 450 


tax 


FN 


840 


pla: tax 


] 


IL 460 

4 


rts 


DO 


850 


pla: tay 


SB 






EO 


860 


pla 


i 
: ': \ 






LO 


870 


jmp $febc 


' "} 


DP 100 


sys 700 ;pal 64 


GO 


880 


■ 


\ 


GN 110 


.opt 00 


GJ 


890 


irqtwcol .byte 3 


i 


FN 120 


; "split" 


MC 


900 


irqselc .byte ;hi/text (l)=text 


( 


GF 130 


; irq driven multi-colour 


BE. 


910 


splin .byte 20 ; split text line 


■/'- 


AL 140 


; hi-res/text screen 






™ -* * 


_ 


PI 150 


; by zoltan hunt, 1988 








. . ... 


GB 160 


' 


DP 


100 


sys 700 ;pal 64 


| 


HC 170 


split =* 


GN 


110 


.opt 00 




NE 180 


sei 


GN 


120 


; "seam" 


1 m 


PH 190 Ida #<main 


ML 


130 


; puts a sprite anywhere 


mm 


DI 200 


sta $0314 


PL 


140 


; on the screen 


L L L ! 


PI 210 


Ida #>main 


AC 


150 


; put x/2 in xpos, 


J 


IJ 220 


sta $0315 


BJ 


160 


; y in ylo, 


,." 


FC 230 


Ida #$81 


IN 


170 


; and sprite # in xpsnum. 


— t ■ 


HN 240 


sta $d01a 


KC 


180 


/ 


..::■ 


IG 250 


Ida #$lb 


PO 


190 


seam =* ;uses xpos, ylo, xpsnum 


■-■ 


LN 260 


sta $d011 


DL 


200 


Ida #0 


1 


OJ 270 


Ida #$7f 


LD 


210 


sta xhi 


! 


HD 280 


sta $dc0d 


OA 


220 


Ida xpos 


^m 


AL 290 


cli 


BJ 


230 


asl 


' : 


IB 300 


rts 


LA 


240 


rol xhi ; holds high bit 


| 


MK 310 


■ 


MM 


250 


seam2 =* ;uses xlo, xhi, ylo, xpsnum 


■ 


HH 320 


main =* 


HI 


260 


sta xlo 


j 


HL 330 


pha: tya 


OI 


270 


Ida xpsnum 




OL 340 


pha: txa 


IM 


280 


asl: tax 


i 


LG 350 


pha ;save a,x,y 


IG 


290 


Ida ylo 




FF 360 


Ida #1 


MG 


300 


sta 53249, x 


j 


BF 370 


sta $d019 


LH 


310 


Ida xlo 


\ 


GL 380 


Ida irqselc 


PH 


320 


sta 53248, x 


i 


IL 390 


cmp #1 


FH. 


330 


Ida xhi 


: 


HA 400 


beq irqend 


MH 


340 


bne xpnl 


; 


ED 410 


Ida $d012 


CF 


350 


; clear high bit 


^M 


AH 420 


cmp #60 


EE 


360 


ldx xpsnum 


| 


PL 430 


bcc topirq 


EN 


370 


Ida #255 


: 


FN 440 


Ida 53272 ;set up for text mode 


NP 


380 


sec 


j 


DP 450 


and #247 


BO 


390 


sbc xpnum, x 


| 


BL 460 


sta 53272 


DJ 


400 


and 53264 


1 


MH 470 


Ida 53265 


NH 


410 


sta 53264 


S 


HA 480 


and #223 


AJ 


420 


rts 


] 


OM 490 


sta 53265 


MK 


430 


xpnl =* ;set high bit 


| 


DO 500 Ida #2 


EJ 


440 


ldx xpsnum 


| 


GN 510 


sta $d012 


HG 


450 


Ida 53264 


j 


NK 520 


Ida 53270 


KE 


460 


ora xpnum, x 


^H 


GE 530 and #239 


JL 


470 


sta 53264 


\ 


PP 540 


sta 53270 


MM 


480 


rts 


I 


IL 550 


Ida irqtwcol 


AG 


490 




' 


IB 560 


sta 53281 


FE 


500 


xpos .byte 80 .sprite x pos / 2 




FN 570 


jmp irqend 


PK 


510 


ylo .byte 120 ;y position 




KL 580 


■ 


PK 


520 


xlo .byte 100 ; sprite x pos low 


A 


PM 590 


topirq =* ;set up for hires mode 


CJ 


530 


xhi .byte ; sprite x high bit 




PP 600 


Ida 53272 


OK 


540 


xpsnum .byte /sprite # (0-7) 




JE 610 


ora #8 


LO 


550 


xpnum .byte 1,2,4,8,16,32,64,128 □ 




Transactor 


45 




February 1989: Volume 9, Issue 3 





The BASIC 7.0 BANK Command 



A voyage of discovery in the C128 ROMs 



by D.J. Morriss 

As is well known, Commodore was experiencing financial dif- 
ficulties during the development and early marketing of the 
CI 28. This may account for the frequent use and misuse of the 
term 'bank' in connection with the internal architecture of both 
the CI 28 and the 1750 Ram Expansion Module. 

As has been well explained in earlier issues of the Transactor, 
the term 'bank' in the CI 28 is most often used to refer to dif- 
ferent preselected memory configurations. The Memory Man- 
agement Unit (mmu) switches different parts of the available 
180 kilobytes of RAM and ROM into the C128's 64K of 
addressable memory, as needed. This switching is going on 
hundreds of times a second, under the control of the operating 
system. 

For example, a very long basic program may occupy RAM in 
Bank as far as $D600. The program at that point may con- 
tain a statement to PRINT A$, where the string A$ could, by co- 
incidence, be stored in Bank 1 starting at that same address, 
$D600. If the 80-column screen is the active screen, the PRINT 
statement must pass the string to the 80-column Video Display 
Controller (vdc) through its two registers at (you guessed it) 
$D600 and SD601 in Bank 15. 

Meanwhile, the 40-column screen may need to know how to 
draw a character whose shape is defined starting at $D600 in 
Bank 14. Clearly, interfering in these rapidly changing config- 
urations would be a very tricky and dangerous process. Yet, 
Basic 7.0 on the CI 28 seems to supply a command that does 
exactly that. Naturally, it is called the bank command. 

Various references seem unclear about just what the Basic 7.0 
BANK command does. One states that the command "switches 
the system from one bank to another". Another says that BANK 
"selects one of the 16 memory banks". Most authorities, in- 
cluding Commodore's C128 System Guide and CI2H Pro- 
grammer's Reference Guide make it clear that the BANK com- 
mand determines the memory configuration accessed by cer- 
tain other Basic 7.0 commands, but there is no general agree- 
ment as to which commands are involved. Some digging in the 
C128 ROMs gave me the answer to most of these questions. 



and revealed some facts about BANK that are both important 
and not widely known. 

What it does 

The BANK routine is located in ROM at $6BC9 (listed at the 
end of this article). As the disassembly shows, the routine is 
short and simple. It evaluates the argument of the bank com- 
mand, checks if that argument is in the range 0-15, then stores 
it in S03D5 (decimal 981), and exits. And that is all it does! 
The command, BANK 15, is exactly the same as POKE 981,15. 
The bank command certainly seems innocent enough... 

The next obvious question is "Who cares?" or, "What rou- 
tines reference this memory location, $03D5?" I used the 
Monitor HUNT command to check the ROMs for all instances of 
this address. (I thought it unlikely that this location would be 
referenced by indexed or indirect addressing.) 

Naturally, the address would be found, in low-byte hi-byte 
form, as the sequence $D5, $03. There are exactly nine occur- 
rences of this byte sequence, and they all turned out to be part 
of valid load or store commands. This is the break-down of the 
locations and the routines located there: 

$40B5 the initialization routine of the cold-start 

sequence. The routine stores a value of $0F, 
decimal 15, in location $03 D5 

$5891 this part of the ROM handles the SYS 
statement. 

S6BD1 handles the BANK statement (see listing). 

S6C4 1 handles the wait statement. 

$7347 handles the BOOT statement. 

S80D2 handles the PEEK statement. 

$8()F1 handles the POKE statement. 
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$A3E0 evaluates parameters for disk commands. 

$AA60 common code for ram Expansion Module STASH, 
fetch and swap commands. 

These are the only commands that change or refer to $03D5; 
these are the only BASIC commands that are affected by bank. 
There are several significant points that should be made about 
this list. 

The first thing to be noted is the relative permanence of the 
BANK command. Once bank stores a value in $03D5, only an- 
other bank command, a poke to $()3D5, or a complete system 
reset will change it. The stored value survives the running of a 
program, a run/stop-restore, and even a reset with 
RUN/STOP depressed. 

As a consequence, you should never assume you know the 
value stored in $03 D5. Any of the 'banked' commands listed 
above should always include some type of bank command to 
set the desired configuration explicitly. 

Some CI 28 references state that, in the absence of any bank 
command. Bank 15 is the default value. In one sense, this is 
correct. If no bank command has ever been used since the 
computer was reset, the value of $0F stored in $03D5 by the 
initialization routine will establish Bank 15 as the one to be 
accessed. 

However, if any BANK command has ever changed the value in 
S03D5 since the last reset, then that bank command is the one 
that determines the bank accessed, even if it was isssued hours 
earlier. 

PEEK, POKE, SYS and WAIT 

The importance of bank to these four commands is obvious. 
If you are going to look at, or change bytes at memory loca- 
tions in different banks, the PEEK and POKE routines must 
check $03D5 to know which configuration you want them to 
access. 

If you are going to SYS to some machine language, SYS needs 
to know which configuration contains the program. If you are 
going to wait until the bits in a particular memory location 
match some pattern, again the routine must know which con- 
figuration contains the particular location. 

STASH, FETCH and SWAP 

The inclusion of the Ram Expansion commands STASH, FETCH 
and swap may cause some surprise. The Ram Expansion Mod- 
ule User's Guide certainly seems pretty definite that only 
Bank can be accessed. On page 14, it states that the basic 
commands "can only be used to transfer or retrieve data in 
Bank of the C128 computer's internal RAM", and the state- 
ment is repeated word-for-word on page 24. The situation is 
somewhat confused, since the manual goes on immediately to 



describe how to access Bank 1 ! In fact, you can FETCH, STASH 
and swap to/from any CI 28 internal bank, simply by using the 
bank command first. 

The Version CI 28 ROMs have some problems in doing this. 
The original DMA (Direct Memory Access) routine insists on 
creating a new memory configuration, in which the I/O block is 
visible. Thus, it would be impossible to STASH the Character 
ROMs, in Bank 14, using the Version ROMs. In addition, the 
Version routine will occasionally carry out the 
stash/fetch/swap with the wrong memory configuration 
enabled. The new Version 1 ROMs correct both these bugs, al- 
lowing you to access any part of any bank without difficulty. 

For example, if you have either a 1700 or 1750 Ram Expan- 
sion Module and CI 28 Version 1 ROMs, try this short program 
in 40-column mode: 

100 GRAPHIC 1,1 

200 BANK 14: STASH 4096, 53248, 0, 

300 BANK 15: FETCH 4096, 8192, 0, 

400 BANK 0: FETCH 4096, 12288, 0, 

The entire character set has been copied from the Bank 14 
Character ROMs into the ram expansion, and from there twice 
into the Bank 15 hi-res screen memory. The different bank 
commands in lines 300 and 400 simply demonstrate that, from 
$0000 to $3FFF, Bank and Bank 15 are the same. 

Disk I/O 

The inclusion of the disk parameter evaluation routine is also 
curious. The commands involved are bload and BSAVE. The 
description of these two commands makes it clear that you can 
specify the bank to be accessed by including the B parameter 
in the command string; for example, 

BSAVE "CHARGEN", B14, P53248 TO P57343 

will save the character pattern ROM, in Bank 14, to disk; while 

BLOAD "SPRITES", B0, P3584 

loads a binary file into the Bank sprite pattern storage area. 

Not so clearly stated is the fact that, in the absence of any B 
parameter in the bsave or BLOAD command string, the last 
BANK command is used to set the bank saved or loaded. Enter 
and run this short BASIC program, in 40-column mode, with a 
disk in the drive: 

100 GRAPHIC 1,1 

200 BANK 14 : BSAVE "CHAR/SET", P53248 to P57343 

300 BANK 15 : BLOAD "CHAR/SET", P8192 

The complete character set will appear on the screen, as it is 
first BSAVEd from Bank 14 to disk, and then BLOADed back in- 
to Bank 15 into the high-res screen memory. 
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Either a BANK statement or a B parameter is necessary to en- 
sure that BSAVE, and particularly BLOAD, operate reliably. The 
problem is that the CI 28 uses the same format for saving files 
as do all other Commodore 6502-based systems, from the first 
PET onwards. Thus, while the start address of a file is saved, 
the Bank is not saved, since the format predates the Bank 
concept. 

This makes the CI 28 compatible with other Commodore com- 
puters, but leads to problems when files are saved and loaded 
from different Banks. The Bank must be specified separately, 
by either the B parameter in the command string, or the bank 
command preceding the disk command. Since the B parameter 
overrides the BANK command, it should be included in the 
command string whenever the BLOAD or bsave commands are 
used. 

BOOT 

The fact that BOOT is affected by the bank command is a total 
surprise. There are, of course, two versions of the boot com- 
mand. The simple command, BOOT, causes the system to carry 
out instructions according to the contents of Track 1, Sector 0. 
This version of BOOT is not influenced by bank. However, the 
other version of the command, boot "filename", is affected 
by bank, although none of references I have seem to be aware 
of this. 



USR 



Notably absent from the list of Basic 7.0 'memory* com- 
mands affected by BANK is the USR function. Briefly, USR op- 
erates as follows. When a BASIC program encounters a USR 
statement, such as: 

400 y = USR( x ) 

the expression in parentheses is evaluated and stored in Float- 
ing Point Accumulator #1. In the example above, the expres- 
sion is just the variable X, but any complex expression that 
yields a numerical value is permitted. Then the program exe- 
cutes a JMP to a user-supplied machine language routine. This 
is only possible if you have earlier stored the address of the 
routine, in low-byte, high-byte order, in 4633-4634 (decimal), 
$1219-$121A. 

The machine language routine may or may not change the val- 
ue in Floating Point Accumulator #1; also, the routine must 
end in an RTS (ReTurn from Subroutine). Finally, the value 
found in Floating Point Accumulator #1 at the end of the ma- 
chine language routine is used as the value of the USR func- 
tion; in the above example, this value is assigned to Y. Here is 
a more complex example: 

500 Y = 3 * ( SQR( 2.5 * USR( LOG( 5 * Y ) ) ) ) 



The command, BOOT "filename", is the equivalent of BLOAD 
"filename", followed by a SYS to the load address of the file 
BLOADed. However, as explained above, the load Bank is not 
saved. 

As a result, the BOOT command uses the BANK command flag 
in S03D5 to determine the Bank where the program will be 
BLOADed and run. Thus, you should always set this flag with a 
bank command before you execute the BOOT "filename" 
command. 

An interesting discovery was made about the syntax of the 
BOOT command. Most references fail to mention that the BOOT 
command string can contain an alternate load address, speci- 
fied by a P, followed by the new load address. 

This is exactly the same as the P syntax used in bload and 
bsave. In addition, none of the references mention that the B 
parameter can be included in the BOOT command string to 
force the BLOAD and SYS into some other Bank. For example: 

BOOT "GOODIES", B0, P12345 

will load the file "goodies" into Bank 0, starting at 12345 
(decimal), and then SYS to this location. The Bank value in 
$03D5, and the original load Bank and address of "GOODIES", 
will have no effect. Since this use of the B parameter is com- 
pletely undocumented by Commodore, it would be unwise to 
make much use of it. There is no requirement on Com- 
modore's part to preserve such undocumented 'features'. 



Here the variable Y is multiplied by 5, and the logarithm of the 
result is calculated and left in Floating Point Accumulator #1. 
The machine language routine is executed, and the value in the 
Floating Point Accumulator at the end of the ML is multiplied 
by 2.5; the square root of the result is multiplied by three and 
assigned to the variable K 

If you are careless enough to use the USR function without set- 
ting the pointer in S1219-S121A, you will receive an ILLEGAL 
QUANTITY ERROR message. There is no illegal quantity, and 
"USR has functioned as described. It's just that the initialization 
routine sets S1219-S121A to point to the routine that prints 
that particular error message, as a precaution against exactly 
this piece of carelessness! 

As far as this article is concerned, the important point is that 
the jmp to the user-supplied machine language routine takes 
place in Bank 15. The BANK flag in $03D5 is not consulted, 
and USR is not affected in any way by the BANK command. 
Thus, the machine language routine must be in Bank 15 RAM 
below $4000, or consist of a ROM routine. Of course, there is 
no reason why the ML cannot jump to a routine in another 
Bank, as long as it returns to Bank 15 before ending. 

Bank 16, 17, 18...? 

As stated above, the BANK command is careful to place a num- 
ber in the range 0-15 (decimal) in $03 D5. You may be won- 
dering what would happen if you poked some other value into 
$03D5, and then used any of the commands above. The results 
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would be quite unusual, and not very useful. Here's why. The 
actual switch from one Bank to another is accomplished by 
storing a number in $FF00. 

This is an alternate address for SD500, the Mmu Configura- 
tion Register. Each of the eight bits in the number stored deter- 
mines some part of the memory configuration, leading to a 
possible 256 configurations. 

Commodore picked 16 individual configurations (or Banks) 
that it thought would be particularly useful, and stored the 
Configuration Register value that establishes each of these 
configurations in a table starting at SF7F0. 

For example, to establish the memory configuration that Com- 
modore chose to call Bank requires that 63 (decimal) be 
stored in $FF00, so the first entry in the table is 63. The bank 
flag in S03D5 is used as an offset into this table, to obtain a 
value that will then be stored in SFFOO. 



Since there are only 16 entries in the table, setting a Bank 
higher than 15 would cause the system to read the code that 
i follows the table as more Configuration Register values. The 
memory configuration that would be established during peek, 
poke or whatever, by these 'new' table values would be very 
strange indeed! 

Summary 

1) Always precede peek, poke, sys, wait, stash, fetch, 

swap and boot "filename" with a bank statement to set 
the desired Bank explicitly. 

2) Always include the B parameter in the command string for 

BLOAD and bsave to set the desired Bank explicitly. 

3) Always locate the machine language for the USR function 
J in Bank 15. 

4) Never POKE strange values into S03D5. Better yet, never 

POKE strange values anywhere! 

Listing 

* 

BANK Command ROM Listing 

6bc9 jsr $87f4 ; routine to evaluate 

; BANK argument 

6bcc cpx #$10 ; check for valid argument 
6bce bcs $6bd4 ; branch if invalid 

6bd0 stx $03d5 ; store BANK argument 

; in $03D5 



6bd3 rts 



; all done 



6bd4 jrap $7d28 ; prints error message 



□ 



NOTHING LOADS YOUR PROGRAMS FASTER 

THE QUICK BROWN BOX 
A NEW CONCEPT IN COMMODORE CARTRIDGES 

Store up to 30 of your favorite programs — Basic & M/L, Games & 
Utilities, Word Processors & Terminals — in a single battery-backed 
cartndge. READY TO RUN AT THE TOUCH OF A KEY 
HUNDREDS OF TIMES FASTER THAN DISK. Change contents 
as often as you wish. The QBB accepts most unprotected programs 
including "The Write Stuff" the only word processor that stores your 
text as you type. Use as a permanent RAM-DISK, a protected work 
area, an autoboot utility. Includes utilities for C64 and C-128 mode. 

Packages available with "The Write Stuff," "Ultraterm III,""QDisk" 

(CP/M RAM Disk), or QBB Utilities Disk. Price: 32K $99; 64K $129. 
(+$3 S/H; $5 overseas air; Mass residents add 5%). 1 Year Warranty. 
Brown Boxes, Inc, 26 Concord Rd, Bedford, MA 01730- (617) 275- 
0090; 862-3675 





GET MORE 
PLEASURE 
FROM THE 
BIBLE WITH 

LANDMARK 

The Computer Reference Bible 

Here's what LANDMARK will enable you to do: 

• SEARCH THE BIBLE-Find Phrases, words or sentences. 

• DEVELOP TOPICAL FILES-Copy from The Bible text 
and search results then add your own comments and notes 

• COMPILE YOUR PERSONAL BIBLE- Outline texts in" 
color. Add notes, comments, and references. Make your Bible 

Study organized and on permament record! 

• CREATE FILES— Then convert them for use with 

wordprocessors like Paperclip and GEOS. 

• MAKE SUPPLEMENTARY STUDY FILES-Por specific 

study and develop translation variations. 

NEW LOW PRICE! $119.95 

vl.2 for C64 and v2.0 for C128 

CALL OR WRITE TODAY FOR A FREE BROCHURE 

WHICH SHOWS HOW VALUABLE LANDMARK CAN 

BE IN YOUR BIBLE STUDY 

P.A.V.Y. Software P.O. Box 1584 
Ballwin, MO 63022 014) 527-4505 
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REDATE 



Notes from the CP/M Plus workbench 



by Adam flerst 

Copyright © 1988 Adam Herst 

Cp/m Plus provides sophisticated date and time services to both 
the user and the programmer. Users can set the system clock from 
the command line using the DATE or CONF commands. With a lit- 
tle preparation, you can stamp files with the system time to reflect 
creation, access, and update dates and times. The transient version 
of the DIR command can display the stamped information. Pro- 
grammers can manipulate system dates and times and file stamps 
using a number of BDOS services. 

With all of these services provided by Cp/M Plus, it is unfortu- 
nate that the CI 28 does not come equipped with a battery- 
powered clock. If the system clock and file stamps are to be 
correct, the system date and time must be set or reset on every 
cold boot, reset or warm boot. 

While this is annoying, there are benefits in making sure that 
the system's date and time are set correctly, or at least in cor- 
rect chronological sequence. If you're like me - without a 
watch more often than not - it is convenient to have the time 
available through the command line. More importantly, the 
date and time services provide a way to track the many ver- 
sions of text and executable files that are generated by practi- 
cally every large writing or programming project. 

Redate, a short assembler program, removes the drudgery of 
manually resetting the system clock. It uses CP/M's file stamp- 
ing to set the system date and time to that of the most recently 
accessed file. Without a battery-powered clock, no program 
can automatically set the date and time exactly. However, re- 
date can ensure that file stamps are chronologically correct 
and, if there has been recent disk access, that the system date 
and time are reasonably close to the real date and time. 

Setting the date and time 

Two utilities with which to set the system date and time, date 
and CONF, are supplied in the Cp/m Plus toolkit. Date is a 
standard Cp/m Plus transient utility provided by DRI (Digital 
Research Institute, the supplier of the Cp/m Plus operating sys- 
tem). It is a relatively large program, and is specialized for set- 
ting and displaying the system date and time. CONF is an im- 
plementation-specific utility provided by Commodore, with 
CP/M versions dated Dec 6, 1985 and later. CONF is small and 



fast, and is designed to manipulate a host of system character- 
istics, most of them specific to CP/M on the CI 28. The differ- 
ences in design and function between date and CONF are re- 
flected in the operation of these two utilities. 

When used to set the system date and time, DATE can be used 
in a command line mode or in an interactive mode. Interactive 
mode is useful in PROFELE.SUB files, since it pauses and 
prompts for input. 

In interactive mode, the form of the DATE command is: 

DATE SET 

Cp/M will respond with the exchange: 

Enter today's date (MM/DD/YY) : 
Enter the time (HH:MM:SS) : 
Press any key to set time 

An argument error at any stage will abort the DATE command. 
An argument can be passed over by pressing the RETURN key. 

In command line mode, the form of the date command is: 

DATE SET dd/mm/yy hh:mm:ss 

where dd is the day number, mm is the month number, yy is 
the year number, hh is the number of hours in 24-hour format, 
mm is the number of minutes, and ss is the number of seconds. 
Both arguments must be supplied in full. An incomplete date 
or time specification is flagged as an error. 

Issuing this command without argument errors results in a 
prompt to press any key to set the date and time. Pressing a key 
sets the system clock and returns the CCP prompt. If there are er- 
rors in the arguments, either syntax errors or invalid dates or 
times, the error is flagged and the operation is aborted. 

Date can be used to display the system date and time in com- 
mand line mode only. The form of the command for display is: 



DATE 
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Cp/m will respond with a display similar to: 

Mon 08/01/88 11:49:18 

Note the display of the day name. The code to extract this in- 
formation from the information actually maintained by CP/M is 
one of the reasons for date's large size and slow operation rel- 
ative to CONF. Nonetheless, it is a nice feature if you need it. 

CONF offers limited functionality compared to DATE. It oper- 
ates in command line mode only, performs less error handling, 
and provides a stripped-down display. However, given its rela- 
tively small size, and its many other uses, it is much more 
likely to be found on a currently logged-in disk than DATE, its 
DRI counterpart. To use CONF to set the date and time, issue the 
command: 

CONF DATE = dd/nrni/yy hh:mm:ss 

where dd is the day number, mm is the month number, yy is 
the year number, hh is the hour number in 24-hour format, mm 
is the number of minutes, and ss is the number of seconds 
(though this is ignored and may be omitted). Either argument 
can be omitted. If both arguments are omitted the date is dis- 
played. An error - either a syntax error or an invalid date - 
causes the command to be aborted. 

Stamping files 

Cp/m's file-stamping services are the heart of redate's opera- 
tion. Without them, no record of the date and time would exist 
for redate to use. However, Cp/m Plus does not stamp files 
with dates and times by default. (This is probably due to the 
directory entry overhead imposed by file stamps. As described 
later in this article, the use of file stamps reduces the number 
of available directory entries by 25 per cent.) So, before files 
can be stamped, the INITDIR command must be used to initial- 
ize the directory of the given disk to receive file stamps. Also, 
the SET command must be used to indicate which of the file 
stamp types is to be active. 

To initialize a disk directory for file stamps, issue the command: 

INITDIR d: 

where d is the letter of the drive containing the disk to be 
initialized. 

Initdir responds with the exchange: 

INITDIR WILL ACTIVATE TIME STAMPS FOR THE SPECIFIED DRIVE . 
Do you want to re-format the directory on drive: M (Y/N)? 

If the disk has already been initialized to accept file stamps, 
INITDIR responds with: 

Directory already re-formatted. 

Do you want to recover time/date directory space (Y/N) ? 



I f the directory space is not to be recovered, initdir responds with: 

Do you want the existing time stamps cleared (Y/N) ? 

This last exchange is the only way to directly manipulate file 
stamps through the standard CP/M toolkit. Unfortunately, file 
stamps can only be explicitly set to a blank entry. 

Note that the disk does not have to be newly formatted. Exist- 
ing data will not be destroyed by INITDIR. There is a chance, 
however, that a disk with data may not have sufficient directo- 
ry space remaining to support file stamps. If this is the case, 
you will have to remove some of the files on the disk. Files 
that existed before the initialization will have blank entries for 
the activated stamps. 

Once the directory has been initialized, use the SET command 
to indicate which of the file stamp types should be active for 
that disk. Cp/m Plus supports three types of file stamps: create, 
update, and access. Create stamps indicate the date and time 
at which the file was created. Update stamps indicate the date 
and time at which the file was last updated. Access stamps in- 
dicate the date and time at which the file was last accessed. 

While three file stamp types are supported, a maximum of two 
file stamp types may be active at any one time. Cp/m dictates 
that create and access file stamps are mutually exclusive - only 
one of the two can be active at any one time. Fortunately, the 
way CP/M interprets update stamps allows them to function as 
create stamps in most cases. 

Update stamps indicate the date and time at which the file was 
updated 'in place'. A file that is updated in place has altered 
information written to the same disk record as the original file, 
and writes new information to the last record of the original 
file. One program that updates files in place is dBASE II. 

Most programs do not update files in place. They create a new 
file to hold the altered or new version and delete or rename the 
original file. Consequently, for a newly created file, the update 
stamp reflects the creation date and time. Activate access stamps 
instead of create stamps, and interpret them as create stamps. To 
display the file stamps, use the transient version of dir: 

DIR d: [ATT] 

where d is the drive whose disk directory should be shown. A 
directory display similar to the following will be shown: 

Scanning Directory. . . 
Directory For Drive A: Oaer 9 



Name 



Bytes Recs Attributes Prot 



Update 



Access 



REDATE CCM 



2k 



3 Dir RW 



None 08/01/88 12:11 08/01/88 12:11 



Total Bytes 
Total Ik Blocks 



2k Total Records = 3 Files Found = 1 

1 Used/Max Dir Entries For Drive A: 69/ 128 
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The last two columns of the listing contain the information for 
the active file stamps, in this example update and access. Prac- 
tically all of the other forms of the dir command will display 
the file stamp information as well. 

System level services 

The next few paragraphs discuss time and date services and file 
stamping at the system level; they assume familiarity with the 
Cp/M 3.0 BDOS and the Cp/M 3.0 file system. This background in- 
formation can be found in the Cp/M Plus Programmer's Guide 
available through the Commodore Cp/M Special Offer. 

Cp/m uses a four-byte data structure to store date and time in- 
formation. The first two bytes are used to store the date; the 
last two bytes are used to store the time. The date is stored as 
the number of days elapsed since January 1, 1978, in low 
byte/high byte format. (Your guess as to what will happen 
when we pass June 4, 2001, the largest date representable un- 
der this format, is as good as mine.) The time is stored as the 
number of hours and number of minutes, in BCD (binary coded 
decimal) format. The CP/M date structure representing the date 
and time 7/18/88 22:55 looks like this: 



oc 


OF 


22 


55 


low byte 


high byte 


hours 


minutes 


date in days 


date in days 







The system date and time are maintained in the system control 
block, at byte offset 58h-5ch. (The fifth byte is used to store 
the seconds in BCD, and is unused for file stamps.) It can be 
queried and set by directly manipulating the scb. However, 
BDOS calls 68h and 69h are provided to facilitate operations 
that set or query the date and time respectively. 



DMA buffer contains the directory entry for four files. When 
file stamps are active, the last directory entry in the DMA 
buffer contains the file stamp and password mode information 
for the preceding three files. 

File stamp information can be obtained directly from the DMA 
buffer. However, BDOS call 66h gets the file stamp information 
for the file in the FCB. Bytes 24-27 of the fcb will contain the 
create or access file stamp (recall that only one of the two may 
be active). Bytes 28-31 of the FCB will contain the update 
stamp. File stamp date and times cannot be set directly. 

Redating 

Redate sets the system date and time to that of the most re- 
cently accessed file as indicated by the access stamp. It frees 
you from finding a calendar and clock to determine the date 
and time, and frees you from having to enter that date and time 
through the keyboard. While redate can't accurately set the 
time, it ensures that stamps are chronologically correct. It is 
most effective when used immediately after a warm boot or re- 
set. While it can be used after a cold boot, large discrepancies 
between the system date and time and the real date and time 
are likely. 

Redate requires that access file stamps be activated on the 
specified disk and that some disk activity has occurred before 
the redate command is issued. 

To execute redate, issue the command: 

REDATE d: 

where d is the drive in which the disk to be searched is located. 



Cp/m Plus stores file stamps in the disk directory. Since only 
two types of file stamps can be active at one time, and four 
bytes are required for each date structure, a maximum of 8 
bytes are required to store the file stamps for a given file. File 
stamps are not stored in the same directory entry as the file to 
which they are related - there is no room. They are stored in a 
directory entry used solely for date and time stamps, and pass- 
word mode information. There is enough room in a directory 
entry (32 bytes) to store date and time stamps and password 
information for three files. 

This explains what is happening when a disk directory is pro- 
cessed by initdir. When Cp/m Plus prepares a directory for 
file stamping, the directory is rearranged so that every fourth 
entry is used to record stamp and password mode information 
for the previous three files. (This results in the 25 per cent re- 
duction of available directory space mentioned earlier.) A file 
stamp directory entry is identified by a 21h in location of the 
directory entry, instead of the user number to which the file 
belongs. 

When a directory entry for a file is read using the BDOS 
'search for first file' or 'search for next file* system calls, the 



If the disk letter is omitted, the default disk will be searched. If 
no file access stamp is found, the program return code will be 
set to an error condition. 

The Redate program 

Redate is written in 8080 assembler. It can be assembled 'as 
is* with MAC and loaded with HEXCOM, both supplied by dri in 
the Commodore Cp/m Special Offer package. 

The code is fully commented, so only an overview will be sup- 
plied here. Redate starts by matching all files in user area 0, 
and stores them in a simple stack using the PushFileName rou- 
tine. Once all matches have been found, the file names are re- 
trieved one at a time using the PopFileName routine. The ac- 
cess stamp information for each file is compared to the saved 
date (initialized to 1/1/78) using the CompareDate routine. If 
the access stamp is more recent, it is copied to the saved date 
where it becomes the standard for further comparisons. When 
the last file in the current user area is processed, the cycle is 
repeated for the next user area. When all user areas have been 
processed, the system date is set to the saved date if it is more 
recent than the initial date. 
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Conclusion 

Redate illustrates one use of Cp/m 3.0*s sophisticated date 
and time services. Enhancements to REDATE could include an 
option for a 'fudge factor' to set the date more accurately, or 
an option to search all the disks in the drive path for the most 
recently accessed file. Other date and time related utilities 
could include a MAKE utility to evaluate file dependencies. The 
features of Cp/m 3.0 make ideas like these surprisingly easy to 
implement. 



Listing: Redate.asm 



Redate 



; 1 TITLE 



; REDATE (c) 1988 Adam Herst, Toronto, Ontario 

* 

; Set the system date to that of the most recently accessed file 

; on the specified disk. 

; Requires that access file stamping has been activated. 



; 2 HISTORY 
; v2.1 

t 

; 72.0 
: vl.O 

; 3 EQUATES 



Adds drive option 

Sets program return code to error if no 

First working version 

Non-working prototype 



found 



GetSetRetCode 


equ 


6ch 




SetWAAddr 


tqu 


lib 




SelDisk 


equ 


Oeh 


» 


GetSetOser 


equ 


20h 




ParseFileName 


equ 


98b 




SearchFirst 


equ 


lli 




SearchNext 


equ 


12h 




GetDatePasswd 


equ 


66h 




SetDate 


equ 


68h 




BDOS: 


equ 


5b 




CPKFC8: 


equ 


5ch 




FCBFILENAME: 


equ 


CPHFCB+ld 




FCBACCESS: 


equ 


CPMFCB+24d 




HYDHA: 


equ 


04G0h 




FILENAMESTACK: 


equ 


0500h 




CMARECOFFSET 


equ 


20h 




RETCODECCPSOC: 


equ 


OOOOh 


; CCP-initialized success code 


ftETCODEUSRERR: 


equ 


OFFOOh 


; User set error code 



; 4 PROLOG 



; 4.1 Program start 



org 



ICOh 



; 4.2 Set program return code to error 



mvi 
hi 
call 



c, GetSetRetCode 
d, RETCODEUSRERR 



; 4.3 Set dma buffer 



avi 
hi 
call 



cSetDHAAddr 

d ( MYDHA 

BDOS 



; 5 Find most recent access stamp and save it 
; 5.1 Has a drive been specified? 



J Transactor 



hi 


h,CPMFCB 


; point to drive letter 


mov 


a,m 


; get drive letter 


cpi 


Oh 


; is it already the default? 



; 5.2 If no then start checking files 



)i 



CHECKFILES ; filename is already the default 



; 5.3 Set default drive to specified drive 



dcr 


a 


avi 


c, SelDisk 


cov 


M 


call 


BDOS 



; 5.4 For USER.YJM: = to 15 



CHECKFILES: 










hi 


h,0SERSlW 


; point to counter 




mvi 


Mb 


; set it to 


FORCSEWIUM: 










rev 


a,m 


; get counter 




cpi 


Ofh 


; is it equal to 15 




jnc 


DODATE 


; yes so jump to set system date 



; 5.4.1 Set user number to 



mvi 


c, GetSetOser 


mov 


e,m 


call 


BDOS 



; 5.4.2 Set feb to match all wildcard 



hi 

shld 

Ixi 

shld 

mvi 

hi 

call 



h,ALLFILES 

PFCBFSPECPTR 

h,CPMFCB 

PFCBFCBPTR 

c, ParseFileName 

d.PFCBSTRUCT 

BDOS 



; point to wildcard filespec string 

; put pointer in PFCBSTRK! 

; point to file control block 

; put pointer in PFCBSTRDCT 

; parse the string and initialize FCB 



; 5.4.3 Setup the filename stack to store filespec matches for processing 



hi 
shld 



h, FILENAMESTACK ; point to bottom of filename stack 
FILENAMEPTR ; set top stack pointer to bottom 



; 5.4.4 Get directory entry for first file match 



-v: 


c, SearchFirst 


hi 


d.CPMFCB 


call 


BDOS 



5.4.5 While there is a file match 



KHILZAKATCB: 



cpi 
J* 



Offh ; is it the no match code? 

WHILESOTEMPTY ; yes so jump to process matches 



; 5.4.5.1 Push filename onto filename stack 



call PushFileta 



; save filename from DM buffer 



53 



February 1989: Volume 9, Issue 3 



; 5.4.5.2 Get directory entry for next file latch 



; 6.3 Set the system date 



mvi 


cSearchHext 


hi 


d,CPHFCB 


call 


BDOS 



; 5,4.5,3 Check if there was a Batch to save 



WILEAMATCH 



; 5.4.6 While filenase stack is not empty 



unansfn 



hi 

push 
j>op 
lhld 
call 

■ 

1* 



h 

d 

FILENAMEPTR 
CompareDEToHL 







ivi 


c, SetDate 






lxi 


d.NEWSYSDATE 






call 


BDOS 




; 7 EXIT 








; 7.1 Success 








EXITSOCCESS: 










nvi 


CGetSetRetCode 






lxi 


d,RETCODECCPSQC 


; point to bottom of stack 




call 


BDOS 


; put pointer in DB 


; 7.2 Error 






; point to top of stack 








; do they point to the same location 


EXITERROR: 






; yes so no files to process 




jnp 


OOh 



; 5.4.6.1 Pop filename from FIL2NAMESTACK 



call 



PopFileName ; put filename in FCB 



; 5.4.6.2 Get access stamp information for file in CPMFCB 



mvi 


c.GetDatePassvd 


lxi 


d, CPMFCB 


call 


BDOS 



; 5.4.6.3 Is the file access date never than the current saved date? 



lxi 
lxi 
call 



d r HEIfSYSDATE ; point to saved date 
h.FCBACCESS ; point to access date 
CompareDate ; compare saved date to access date 



; 5.4.6.4 If no then procass next filename 



]K 



WHILEIICTZMPTY ; saved is larger so do next file 



; 5.4.6.5 Save access date of filename 



lxi 


b,NEWSYSDATE 


lxi 


d, FCBACCESS 


mvi 


b,04h 


call 


CopyBytesOp 



; 5.4.6.6 Check if there is another filename to process 



ft 

; 5.4.7 Do next user number 

NEXTCSERNW: hi 

inr 

ft 



WHILEMOTEHPTY 



h,USER 

I 

FORUSZBKUM 



; point to user number counter 

; increment it 

; check if its valid 



; 6 Set the system date if an access stamp has been found 



DQDATI; 



; 6.1 Is the saved date equal to its initial value? 



lxi 

rev 
inx 
ora 
inx 
ora 
inx 
era 



h.MEWSYSDATE 



h 

I 

h 

m 



; 6.2 If yes then do an unsuccessful exit 



3* 



EXITEBRQR 



SUBROUTINES 



; 8.1 CurrentDmaRec - Point to the current DHA record 



; Description: 

; Arguments: 
: Returns: 

CurrentDmaRec 



Point to the start of 

the current record in the DHA buffer. 

A - number of current record in DMA buffer (0-3) 

E - points to start of current record 



hi 
hi 
inr 

dcr 

rz 

dad 

ft 



h.HYDMA ; point to first DMA record 

d.DHARECOFFSET ; get the record offset 

a ; initialize record counter 

a ; is it the right record? 

; yes so return 

d ; point to next DMA record 

NEXTDMABEC ; check if it is the right record 



1.2 CompareDate - Compare HL date to DE date 



Description 

Arguments: 
Returns: 

CompareDate 



Compare the CP/M date structures. 

The standard date is smaller/equal/larger 

than the argument date 

DE - standard date 

HL - argument date 

Z - set if equal 

C - set if std is smaller 



inx 


a 


inx 


d 


ldax 


d 


emp 


l 


re 




rnz 




da 


h 


da 


d 


ldax 


d 


«P 


■ 


re 




rnz 




inx 


h 


inx 


h 



inx 
inx 
ldax 

c-c 

re 

rnz 

inx 

inx 
ldax 

:.-? 

ret 



d 
d 
d 



h 
d 
d 
m 



; high byte of years in days of argument 

; high byte of years in days of standard 

; get standard 

; is it equal to argument 

; no it is smaller 

; no it is larger 

; low byte of years in days of argument 

; low byte of years in days of standard 

; get standard 

; is it equal to argument 

; no it is smaller 

; no is is larger 

; hours byte of argument 

; hours byte of standard 

I get standard 

; is it equal to argument 

; no it is smaller 

; no it is larger 

; minutes byte of argument 

; minutes byte of standard 

; get standard 

; is it equal to argument 
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6.3 PushFileName - Push current filename in D*tt buffer onto FILENAMESTACK 




; Ascription : 



Copy current filename in DMA buffer 
to the top of the filename stack. 
Requires that FILENAMESTACK has been set up 
and FILENAMEPTR has been defined. 



: Arguments: 


A ■ current record in DMA buffer 


PushFileName 










call 


CurrentDmaRec 


; point to current record in DMA 




in 


h 


; point to start of filename 




push 


h 


; put source pointer in DE 




pop 


d 






lhld 


FILENAMEPTR 


; put destination pointer in HL 




mvi 


b,lld 


; put number of bytes to copy 




eall 


CopyBytesUp 


; copy them incrementing pointer 




shld 


FILENAMEPTR 


; save the new pointer 




ret 







; 8.4 PopFileHaie • Push filename in FCB onto FILENAMESTACK 



; Description: 



Copy the filename from the top of the filename stack 

to the FCB. 

Requires that FILENAMESTACK: has at least one entry. 



PopFileName 



lhld 


FILENAMEPTR 


; get source pointer 


push 


h 


; put it in DE 


pop 


d 




hi 


h,FCBFILENAME+lld 


; get destination pointer 


mvi 


Mid 


; number of bytes to copy 


call 


CopyBytesDown 


; copy them decrmenting pointer 


push 


d 


; save new pointer 


pop 


b 




shld 


FILENAMEPTR 




ret 







1.5 CompareDEToHL - Compare the word in DE to the word in HL 



; Description: 

■ 
■ 

; Arguments: 
; Returns: 

CompareDEToHL 



Compare HL to DE. 

HL is smaller/equal/larger than DE. 

Set appropriate flags on return. 

HL - word in low byte, high byte format 

DE - word in low byte, high byte format 

Z - set if equal 

C - set if AL is smaller 



■cv 



re 
rnz 

EOV 



1,1 

e 



a,h 
d 



; get high byte 

; is hi high byte equal to de high byte? 

; no, it is smaller, so HL is smaller 

; no it is larger, so HL is larger 

; get low byte 

; is hi low byte equal to de low byte? 



ret 



; 8.6 CopyBytesOp - Copy B number of bytes moving up from DE to HL 



Description: 
Arguments: 

Returns: 



Copy the bytes pointed to by DE to the bytes pointed to 

by HL incrementing the pointers. 

DE - start of source bytes 

HL - start of destination bytes 

B - number of bytes to copy 

DE - byte after last byte of source string 

HL - byte after last byte of destination string 



; increment counter 
; get source bytes 
; put it in destination 
; point to next source bytes 
; point to next destination 
; check if more bytes to copy 



8.7 CopyBytesDown - Copy B number of bytes moving down from DE to HL 



inr 


c 


ldax 


d 


mov 


m,a 


inx 


d 


inx 


h 


jmp 


NEXTBYTE2 



Description: 



Arguments: 



Returns: 



CopyBytesDown 
KEXTBYTE3: 



Copy the bytes pointed to by DE to 
the bytes pointed to by HL 
decrementing the pointers. 
DE - start of source bytes+1 
HL - start of destination bytes+1 
B - number of bytes to copy 
DE - last byte of source bytes 
HL - last byte of destination bytes 



mvi 

:.;v 
"? 

rz 

inr 

dcx 

dcx 

ldax 

mov 

jmp 



c.Oh ; initialize byte counter 

a,c ; get counter for comparison 

b ; is it equal to the number of bytes 

; yes so no more bytes to copy 

c ; increment the counter 

d ; point to source byte to copy 

h ; point to destination 

d ; get source byte 

m.a ; put it in destination 

MICH':'!] ; check if more bytes to copy 



; 9 STRUCTURES 



9.1 VERSION: - Version and copyright string 

Description: Version and release number and copyright string 



YIRSIC1 



db 



'REBATE v2.1 (c) Adam Herst 1988' 



; 9.2 NEWSYSDATE: - Date to set system time to 
; Description: date and time in CP/M format 



OSYSDATE: 



cfl> 



Oh 



; low byte of years in days 

; high byte of years in days 

; hours in bed 

; minutes in bed 



; 9.3 PFCBSTROCT: - Parse FCB structure 

; Description: Parse file control block pointer structure 



PFCBSTROCT: 






PFCBFSPECPTR: 


dw 


OOOOh 


FFCBFCBPTR: 


dw 


OOOOh 



; pointer to cp/m style filespec string 
; pointer to file control block 



; 9.4 USERNOM: - user number counter 
; Description: User number counter 

USERHDH: db Oh 

; 9.5 ALLFILES: - filespec string*:*.* 

; Description: CP/M style string for wildcard filespec 



ALLFILES: 



<ft 



'*.*$' 



: 9.6 FILENAMEPTR: - pointer to top of FILENAMESTACK 



CopyBytesUp 








; Description: 


Pointer to top of FILENAMESTACK 




mvi 


c,0h 


; initialize byte counter 






| NEXTBYTE2: 








FILENAMEPTR: 


dw OSOOh 




-cv 


a,c 


. get counter for comparison 








cr." 


b 


; is it equal to the number of bytes? 


; 10 END 






rz 




; yes so finished 




end 
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Serial I/O in Power C 



An RS232 function package for C programmers 



bv W. Mat Waites 



One of the most exciting areas of use for the C64 is cheap 
telecommunications. The ability to communicate with other 
machines via modem or a hardwired connection adds greatly 
to the power and value of any computer. The C64 has benefit- 
ed more than other computers from telecommunications be- 
cause of Commodore's supplying modems that are very af- 
fordable. 

Developing telecommunications programs is interesting and 
fun, but the choices of language for that development have 
been very few in the past. 

Interpreted BASIC is too slow even for 300 baud communica- 
tion. Compiled BASIC is much faster, but generally utilizes the 
BASIC interpreter's garbage collection routines for string stor- 
age maintenance. The result of this is that the system locks up 
every few minutes while the string space is being recovered. 
This will drive you insane after a while. 

Assembly language has been the most viable choice for writ- 
ing programs that would be limited in speed only by the Ker- 
nal and the hardware. These assembly programs are very long 
and difficult to modify, however. The lack of a standardized 
parameter passing convention and a linker makes it difficult to 
write functions in assembler that are reusable and sharable 
with other software developers. 

C has come to the rescue with a language that is higher level 
than assembly, but without the run-time overhead of BASIC and 
other interpreted languages. 

Commodore 64 serial I/O 

The C64 actually has a very sophisticated serial I/O system for 
a microcomputer. It is interrupt driven, which means that in- 
coming characters are taken in by the Kernal even if your pro- 
gram is not quite ready for them. Even such popular systems 
as MS-DOS do not have this feature. MS-DOS terminal programs 
must supply their own interrupt-driven code to create this kind 
of functionality. The Kernal takes care of all of the low level 
details of accepting characters and sending them out. 



name for this kind of device is Universal Asynchronous Re- 
ceiver/Transmitter (UART). The C64 emulates the activities of 
a UART in software. The positive side of this is that software is 
more flexible than hardware. The C64's serial I/O is at least as 
configurable as a UART and is more configurable than some. 
The negative side is that software, especially 1 MHz 6502 
software, is slow. The C64 Kernal routines are barely able to 
keep up at 1200 baud; 2400 baud is not reliable at all. 

The two big kludges 

There is a problem with the Kernal-supplied serial routines. 
The timing values supplied for 1200 baud are not exactly cor- 
rect! The 'width' of the bits coming in to the port don't match 
up with what the Kernal expects. By supplying new and im- 
proved timing values, we can tune the routines to expect the 
correct bit widths. 

This 'bit width fix' introduces another problem, though. With 
the best possible values in place for receiving characters, there 
is a problem with transmitting characters. The 'stop bit' (the fi- 
nal bit in a serial character transmission) is too 'narrow'. That 
is, it doesn't last long enough for the machine at the other end 
to recognize it reliably. This is not really a problem with sim- 
ple terminal emulation because no one types fast enough to 
cause multiple characters to be output one immediately after 
another. 

The short stop bit does cause problems with file transfers. 
When a block of data is sent, the characters follow one another 
in rapid succession. The receiver is sometimes still waiting for 
the end of the stop bit when the next character arrives. This 
kind of synchronization problem is called a framing error. 

To break down this final barrier to reliable 1200-baud commu- 
nication, a second kludge is introduced. A delay loop is used to 
wait for each character to be clocked out before another is 
added to the output buffer. This allows the receiving computer 
to recover from one character before the next arrives. 

Problems with C 



Most computers have specialized chips to perform the act of In applying C to telecommunications, the first hurdle to over- 
sending out and receiving individual characters. The generic come is interfacing to the Kernal for several functions. Most 
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obviously, the serial I/O must be accessed from C. Methods for 
doing this are not documented in either the Abacus Super-C or 
Pro-Line/Spinnaker Power C manuals (at least none that I 
have seen). Other functions that must be implemented include: 
getting a keystroke without 'hanging', producing a cursor on 
the screen, doing cursor movement, and providing timing 
functions for communications protocols. 

This article introduces a terminal program written in C and 
provides the details of the implementation of serial I/O in Pow- 
er C. (Note : due to space limitations, only the serial and Xmo- 
dem routines themselves are included in the C source listings 
accompanying this article. The full source for Mat's terminal 
program, and the program itself, will be included on the 
Transactor disk for this issue. -Ed.) 

'Packages' of functions 

Power C provides an excellent linking facility that allows the 
programmer to divide his application into as many compilation 
units as desired. Software development can be made more effi- 
cient by writing subsystems that are independent of each other 
and placing them in separate files. In this way, several differ- 
ent applications may call the same 'package' of functions. 

The reusability of software is very important if you ever in- 
tend to develop a software system of any size. You simply can- 
not start from scratch at the beginning of every project and ex- 
pect to do large projects. 

The package discussed here contains all of the functions and 
data structures necessary for serial I/O in Power C. It allows 
you to open the serial device, set the port parameters, write to 
the serial device, read from the device, and close the device. 

The data structures include the input and output queues and 
the current state of the port. 

Opening and Closing the Device 

OpenserialO opens the C64 Tile' for serial communications. 
Notice that the BASIC-Style open() call is used so that a sec- 
ondary address may be supplied if desired. RS is the symbol 
for the stream number used for the serial port, 6. With the ba- 
Sic-styie open, the stream numbers 5 through 9 should be used 
to avoid conflict with the automatic stream-number allocation 
done by the higher-level I/O functions. 

The closeserialO function simply does a BASlc-style close on 
the RS stream. 

Moving the buffers 

The other activity carried out by the openseriaI() function is 
moving the buffer pointers to point to the buffers that have 
been declared for the serial port queues. These are named in- 
buf-and outbuf The Kernal allocates the buffers initially at the 
top of BASIC memory space, but this falls in the middle of 



Power C space. We simply move the pointers to point to space 
that we have allocated for this purpose; the rest of memory can 
then be used without fear of overwriting the input and output 
queues. This gives the added benefit of allowing the easy ex- 
amination of the queues without reading characters from them. 

Setting the port parameters 

After the port is opened, the baud rate and other parameters 
must be set. We could have specified the baud rate at open 
time, but we want to be able to change the baud rate at any 
time so we must work at a lower level. 

The setserial() function allows the caller to set the baud rate, 
the number of bits per character, the number of stop bits, and 
the parity. This function may be called at any time to change 
the parameters. The three baud rates implemented are 300, 
450, and 1200. Many 300 baud modems will function reliably 
at 450 baud, and many BBSs support this speed. 

Kludge #1 is included in the timing values supplied in this 
function. The 1200 baud values seem to work well, but they 
may be tuned for the best performance with your set-up. The 
61 may be varied up or down by about 4 or 5. 

The stopbits may be set to either 1 or 2. The bits per character 
may be set to anything from 5 to 8. The parity is set with a 
bitmap value corresponding to the 3 bits described in the Com- 
modore 64 Programmers Manual for selecting parity. 

Table of parity values 

- disabled 

1 - odd parity 
3 - even parity 
5 - mark parity 
7 - space parity 

Reading and writing 

The getserialO function is called to get a character from the se- 
rial port. If no characters are available, a -1 is returned. Notice 
that if the Power C getc() function were called here, the func- 
tion would not return until a character had come in the serial 
port. If you are writing a terminal program or BBS, you do not 
want to 'hang' waiting on characters. You simply want to get it 
if it is there, or return if it is not. 

The putserial() function is called to output a character to the 
serial port. This function implements kludge #2. There is a de- 
lay loop that was shortened until framing errors began to oc- 
cur. After the loop it simply calls the Power C putc() function 
to output the character. 

Other functions in the package 

Functions are also provided in this package for some other 
DOS-related activities. Functions are provided for accessing the 
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keyboard without hanging, for checking to see if the' logo' key 
is pressed (I use this for an attention key), to wait for a given 
number of seconds, and to read the disk error channel. 

Notice that Kernal calls must be made to achieve some of this 
functionality, but with these functions making the calls for 
you, you don't need to directly call the Kernal in applications. 

Using the package 

To use this kind of a package you simply compile it as you 
would any other function in Power C. 



The Xmodem routines are very portable. The Commodore 
specific I/O functions are separated out and should make it 
very easy to move the Xmodem part to another operating 
system. 

Ideas for future development 

With the serial I/O stabilized, it shouldn't be too difficult to add 
other protocols: Xmodem CRC, Xmodem batch, Kermit, 
Punter, and so on. The most difficult thing about implementing 
some of these protocols is finding definitive documentation. 
Implementing a BBS is also a possibility. 



This will produce a file - "dos.o". When you link your appli- 
cation, simply link in "dos.o" and you have serial I/O. Note 
that you will only compile it once and then link it in whenever 
you need it. This is a great advantage over BASIC compilers 
that force you to recompile your entire program every time 
you make a change. 

The terminal program 



The Commodore 64 still has a lot of life left in the area of soft- 
ware development. Hopefully, this article will help spur inter- 
est in C programming on the 64. Drop me a note if you have 
any questions, or if you write any interesting applications with 
the serial package. 

I can be contacted on Usenet (!gatech!emcard!mat) or by mail 
at this address: 



Included on the disk is a simple terminal program that calls 
this serial I/O package. It implements a sprite cursor and Xmo- 
dem file transfers. 



W. Mat Waites 
1264 Brandl Drive 
Marietta, Georgia 30060 



/* dos.c - operating system stuff: 


*robuf = otbuf; 


disk support 


1 


serial i/o 




kbi/o 


/* closeserial() 


timers */ 


closeserial() 


/* H Mat Waites - Sept 1988 */ 


i 




close (RS); 


iinclude <stdio.h> 


1 


/* 5-9 may be used with "basic" open */ 


/* 300, 450, 120( 


Idefine KB 5 




Idefine RS 6 


static short hibi 



/* kludge for reliable 1200 baud */ 
Idefine KLUDGE 40 

/* kernel routines */ 

♦define CHKIN 0xffc6 

Idefine GETIK 0xffe4 

Idefine TKSA 0xff96 

Idefine ACPTR 0xffa5 

Idefine TALK 0xffb4 

Idefine UNTLK Oxffab 

/* input and output serial buffers */ 
static char inbuf[256], otbuf [256]; 

/* serial interface functions */ 



- open serial port */ 



/* openserial 
openserial() 

I 

short *ribuf 

short *robuf 



0x00f7; 
0x00f9; 



/* open serial port */ 
open(RS, 2, r "J; 

/* move pointers to buffers */ 
*ribuf = inbuf; 



- close serial port */ 



static short lobyte[3] = {68, 12, 61}; 



/* setserialO - set serial port */ 


setserial (bd, bpc, sb, par} 


int bd, bpc, sb, par; 

{ 
short *m51ajb = 0x0295; 


short 'baudof = 0x0299. 




char *m51ctr = 0x0293 




char *m51cdr = 0x0294 




char *bitnum = 0x0298 




unsigned indx; 


switch (bd) 


l 

case 300: 


indx = 0; 


break; 


case 450: 


indx = 1; 


break; 


case 1200: 


indx = 2; 


break; 


default: /* default to 300 baud */ 


indx = 0; 


break; 
I 





/* set baud rate */ 

*m51ajb = 256 * hibyte[indx] + 

lobyte[indx]; 
*baudof = {*m51ajb)*2 + 200; 

/* stopbits */ 

if (sb < 1 sb > 2) 

{ 

sb = 1; 

I 

sb—; 

/* bits per char */ 
if (bpc < 5 bpc > 8) 

I 

bpc = 8; 

1 
*bitnum = (char) (bpc + 1); 

bpc = 8 - bpc; 

/* parity */ 

if (par < par > 7) 

{ 

par = 0; 

} 

/* put bpc, sb, and par in regs */ 
*m51ctr = (char) ((bpc « 5) 

(sb«7)}; 
*ro!lcdr = (char) (par « 5); 



I 



/* getserial() - char from serial port */ 
getserial() 

{ 
int ch; 
char *rsstat = 0x0297; 



ch = getonechar(RS); 



Transactor 



58 



December 1989: Volume 9, Issue 2 



/* check for empty buffer */ 
if((«rsstat & 0x08) = 0x08) 

{ 

return -1; 

} 
else 

{ 

return ch; 

I 



/* putserial 
putserial (ch) 
char ch; 

{ 
int i; 



putcfch, RS); 



- char to serial port */ 



/* delay loop for 1200 baud kludge */ 
for(i=0; KKLUDGE; i++) 

{ 
1 



/* keyboard interface functions */ 

/* openkb() - open keyboard */ 
openkbO 

{ 
char *rptflg = 0x028a; 

open(KB, 0, 0, ""); 

/* let the keyboard repeat */ 

•rptflg = 0x80; 

) 

/* closekb() - close keyboard */ 
closekbf) 



close (KB); 



/* getkb() - get char from keyboard */ 
getkbi 



I 



return getonechar(KB); 



/* charsinqO - t available kb chars */ 
chars inq{) 



char *ndx = 0x00c6; 



return (int)*ndx; 



/* chkstopt) - check for <C=> key */ 
chkstop 



char *shflag = 0x028d; 
return (*shf lag == 0x02); 



/* getonechar() - get char from chan */ 
static getonechar (channel) 
int channel; 

{ 
char ac, xc, yc; 

xc = (char) channel; 
sys(CHKIN, &ac, Sxc, Syc); 
sys(GETIN, Sac, Sxc, Syc); 
return (int) ac; 



/* disk i/o functions */ 
tdefine SADDR 0x6f 

/* diskerr() - read error channel */ 
char *diskerr(disk) 
int disk; 

{ 
int cc; 

char ac, xc, yc; 

static char msgbuf [41]; 

char *rap; 

char *second = Qx00b9; 

char *status = 0x0090; 

/* tell drive to talk */ 
ac = (char) disk; 
sys(TALK, Sac, Sxc, Syc); 

/* tell it what to talk about */ 
ac = (char) SADDR; 
♦second = SADDR; 
sys(TKSA, &ac, Sxc, fiyc) ; 

/* read in the response */ 

mp = msgbuf ; 

for(;;) 

[ 

/* get byte from bus in ace */ 
sysfACPTR, £ac, ixc, fcyc); 

if(ac== '\r') 

{ 
break; 

) 

*mp = ac; 

mp+t; 

} 
*mp = '\0'; 

/* tell drive to shut up */ 
sys(UNTLK, iac, fixe, iyc); 



I 



return (msgbuf) ; 



/* timer functions */ 

unsigned getclock(); 

/* sleep {) - sleep for seconds */ 

sleep(usecs) 

unsigned usees; 

{ 
setclock ((unsigned) 0); 

while (getclock() < usees) 

1 
1 
} 

struct clock /* struct matches CIA */ 

{ 

char tenths; 
char seconds; 
char minutes; 
char hours; 

}; 



/* setclock () - set timer clock */ 
setclock (usees) 
unsigned usees; 



unsigned bsecs; 

struct clock *clockl = 0xdc08; 

char *clmode = OxdcOf; 

*clmode &= 0x7f; /* mode is clock */ 

if(usecs > 59) usees = 59; 

/* convert sees to bed */ 

bsecs = usecstlO _ ({usecs/10)«4); 

clockl->hours = 0; 
clockl->rainutes = 0; 
clockl->seconds = (char)bsecs; 
clockl->tenths = 0; /* free clock */ 



) 



/* getclockO - get current clock sees */ 
unsigned getclockO 



unsigned usees; 

char junk; 

struct clock *clockl = 0xdc08; 

junk = clockl->seconds; 
usees = (junk & OxOf) + 
10 * (junk» 4); 

junk = clockl->tenths; /* free clock */ 
return usees; 



} 



/* end of file */ 



/* xmcdem.c - xmodem protocol */ 
/* H Mat Waites - Sept 1988 */ 

jf include <stdio.h> 

/* number of retries, timeouts */ 
Udefine RETRY 5 
Jfdefine TOOT 2 
tdefine BTOOT 10 

/* protocol characters */ 

idefine SOH 0x01 

tdefine EOT 0x04 

tdefine ACK 0x06 

tdefine KAK 0x15 

tdefine CAN 0x18 

tdefine RECSIZE 128 

char *diskerr(); 

int rec; 
int tries; 
int timeout; 

/* buffer for data in/out */ 
char buffer [132]; 

/* sendfile() - send file via xmodem */ 
sendfile(fname, disk) 
char *fname; 
int disk; 

{ 
int st; 
int ch; 

char errbuf[41]; 
char locname[21]; 
char *status = 0x0090; 
FILE dfile; 
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rec = 1; 

strcpy(locnarae, fname); 
strcat(locname, ",r"); 

/* attempt to open file for read */ 

device (disk); 

dfile = fopen(locname); 

/* check for disk error */ 
strcpy (errbuf, diskerr(disk)); 
st = atoi(errbuf); 
if (st >= 20) 



close (dfile); 
showerr(fnam$, errbuf); 
return i 



printf ("%s opened\n", fname); 

/* clear input buffer */ 
while (getserial() >= 0) 

t 

1 

tries = RETRY; 



for{;; 



printf ( n Synching... W); 
if(chkstopO) 

{ 

close (dfile); 

return (0); 

} 

ch = getchtmo (BTOOT) ; 

if (timeout) 



printf ("Timeout \n"); 

tries--; 

if (tries > 0) 



continue; 

} 
close (dfile); 

return (0); 

I 
if (ch = NAK) 

{ 
break; 

I 

printf("Strange char [%02x]\n 

) 
printf ("Synched\n"); 

/* send the file */ 

while (fillbuf (dfile, buffer)) 



\ ch); 



if(chkstop() 



close (dfile); 
return (0); 

} 

if {Itxrec (buffer)) 

( 

close (dfile) ; 
return (0); 

1 

1 

/* tell 'em we're done */ 
putserial (EOT) ; 
for(;;) 



ch = getchtmo (TOUT); 
if (timeout) 

{ 

putserial (EOT) ; 

1 

else 

i 

if (ch = ACK) 

{ 

printf ("sent E0T\n\n n ); 

break; 

1 
I 
} 

close (dfile); 

printf("%s transferred\n\n", fname); 

return (1); 



I 



/* recvfile() - recv file via xmodem */ 
recvfile (fname, disk) 
char * fname; 
int disk; 

I 

int st; 

int ch; 

int i; 

char rl, r2, dt; 

int response; 

char rchk; 

char locname[21]; 

char errbuf [41]; 

unsigned chksum; 

FILE dfile; 

rec = 1; 

strcpy(locname, fname); 
strcatflocname, ",*"); 

I* attempt to open file for write */ 

device (disk); 

dfile = fopen(locname); 

/* check for disk error */ 
strcpy{errbuf, diskerr(disk)); 
st = atoi (errbuf) ; 
if (st >= 20) 



close (dfile); 
showerr(fname ( errbuf); 
return (0); 
I 

printf("%s opened\n", fname); 

/* clear input queue */ 
while (getserial() >= 0) 



/* transfer file */ 
response = NAK; 
for(;;) 

I 

/* get a record */ 

printf ("Record %3d 

tries = RETRY; 

for(;;} 

{ 
if(chkstopO) 

I 

close (dfile); 

return' 



reci : 



/* shake hands */ 
putserial (response) ; 
/* get 1st char */ 
ch = getchtmo (TOUT) ; 
if (timeout) 

( 

tries--; 

if (tries > 0) 



continue; /* try again */ 

i 

printf ("Can't sync w/sender\n n ); 

close (dfile); 
return (0); 

) 
if (ch = SOH) /* beg of data */ 

{ 
break; 



else if (ch = EOT) /* done */ 



printf ("got EOT\n\n"); 
close (df ile) ; 
putserial (ACK); 
printf("%s transferred\n\n\ 

fname) ; 
return (1 ); 

1 
else if (ch = CAN) /* cancelled */ 

{ 

close (dfile); 

printf ("Transfer cancelled !\n") ; 

return (0); 

1 

else 

{ 

printf ("Strange char [S02x]\n\ ch); 

gobbled; /* clear any weirdness */ 

response = NAK; /* and try again */ 



} 



response = NAK; 

rl = getchtmo (TOOT); /* record number */ 

if (timeout) 

{ 

printf ("TMO on recnua\n H ); 

continue; 

i 

/* get l's comp record number */ 

r2 = getchtmo (TOUT) ; 
if (timeout) 

{ 

printf ("TMO on comp recnum^"); 

continue; 
} 

/* get data */ 

chksum = 0; 

for(i=0; i<RECSIZE; i++) 

{ 

dt = getchtmo (TOUT) ; 

if (timeout) 

( 
break; 

1 
buffer[ij = dt; 

chksum += dt; 

chksum 4= Oxff; 

) 
/* check for data timeout */ 

if (timeout) 

{ 

printf ("TMO on data\n"); 

continue; 
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/* get checksum */ 
rchk = getchtmo(TOOT); 
if (timeout) 

I 

printf ("TMO on checksum\n"); 

continue; 
} 

/* compare rec num and l's comp */ 
if((/rl 4 Oxff) != (t2 & Oxff)) 

{ 

printf("Bad recnum's\n"); 

continue; 

/* compare checksum and local one */ 
if (rchk != chksum) 

{ 

printf("Bad checksum\n"); 

response = NAK; 

continue; 



if((rl = (rec-l) i Oxff)) /* dupe */ 



printf( "Duplicate record\n H ); 
response = ACK; 
continue; 
I 



if (rl != (rec & Oxff) 

\ 

printf ("Record numbering error\n"); 

close (dfile); 

return) 



recH; 



( 



serchar = getserial(); 
if (serchar >= 0) 

{ 

return (serchar); 

I 

if(getclock() >= timlen 



timeout = 1; 
return 0; 

) 



1 



} 



/* fillbuf () - get buffer of data */ 
fillbuf(filnum, buf) 
int filnum; 
char buf[]; 

{ 
int i; 

int echk; 

char *status = 0x0090; 

for(i=0; KRECSIZE; i++) 



/* get a char from file */ 
if ((echx=fgetc (filnum)} = EOF) 

{ 

break; 

1 
buf [i] = echk; 

) 
if (i = 0) return 0; 

/* set rest of buffer to CTRL-Z */ 
for(; KRECSIZE; i++) 



buf[i] = (char) 26; 



/* write data to file */ 




1 


for(i=0; KRECSIZE; i++) 




return (1); 


putc(buffer[i], dfile); 




/ 


) 




/* txrec() - send rec, get resp 
txrec(buf) 


printf ("OK\n"); 




char buf[]; 


response = ACK; 




( 


1 




int i; 


1 




int ch; 
unsigned chksum; 


/* showerrQ - display disk error */ 




shoverr(fname, errmsg) 




tries = RETRY; 


char *fname; 






char *errmsg; 
f 




for(;;) 
i 


I 
erase (}; 




/* send record */ 


move (11, 5); 






printf( H Error accessing %s*\ 


i fname); 


printf ("Record 13d ", rec); 


move(13, 5); 




putserial(SOH); 


printf ("[Is]", errmsg); 




putserial(rec); 


nove(20, 5); 




putserial(/rec); 


1 




chksum = 0; 

for(i=0; KRECSIZE; iff) 


/* getchtmot) - get char w/timeout */ 


{ 


getchtmo (timlen) 




putserial(buf[il); 


int timlen; 




chksum += buffi]; 


{ 




chksum fi= Oxff; 


int serchar; 




} 

putserial (chksum) ; 


timeout = 0; 






setclock( (unsigned) 0); /* start timer */ 


/* get response */ 






ch = getchtmo(BTOOT); 


for(;;) 




if (timeout) 



{ 

tries—; 

if (tries > 0) 

I 

printf ("Retrying... \n B ); 

continue; 

) 
printf ("Timeout \n"); 

return (0); 
} 

/* analyze response */ 
if(ch = CAN) 

{ 

printf ( "Cancelled^"); 

return (0); 

1 
else if (ch = ACK) 

{ 

printf ("ACKed\n\ rec); 

break; 

1 
else 

{ 

if (ch = NAK) 

1 

printf ("KAKed\n", rec); 

} 

else 

i 

printf {"Strange response\n"); 



tries--; 

if (tries > 0) 

{ 

continue; 

I 

printf ("No more retries!\n n ); 
return i 



) 
recH; 

return (1); 



/* gobble () - gobble up stray chars */ 
gobble () 

( 
unsigned gotone; 



printf ("\ngobbling\n"); 
sleep(2); 



for(;; 

{ 

gotone = 0; 

/* clear input queue */ 

while (getserial() >= 0) 

{ 

gotone = 1; 

} 

if {gotone 



sleep (1); 

} 
else 

{ 
return; 



I 



} 



/* end of file */ 



□ 
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Toward 2400 



RS-232 revisited 



by George Hug 

The performance of 2400-baud modems with C64s and C128s 
will benefit from a new look at the RS-232 servicing routines. 
That performance is poor at 1 MHz, and errors occur even at 2 
MHz when data flows continuously or in both directions at 
once. The 64 and 128-mode RS-232 drivers (which are almost 
identical) are inefficient and contain several outright bugs. 
There is even a hardware glitch in many 6526 CIA chips. New 
routines overcoming these faults will permit error-free com- 
munication at 2400 baud at either CPU speed. 

Commodore RS-232 

The RS-232 drivers send and receive data one bit at a time. At 
2400 baud the transmit driver runs Timer A of CIA#2 in con- 
tinuous mode with a latch value of 426 (the 1-MHz I/O clock 
divided by 2400). On each timeout, the NMI service routine 
places the next bit of outgoing data on pin M (PA2) of the 
User Port. Ten NMIs must be serviced to transmit one byte of 
8/N/l data. 

Timer B is used for received data, which enters on User Port 
pins B (FLAG) and C (PB0). The high-to-low transition at the 
beginning of the start bit generates a FLAG NMI. In response, 
the service routine disables the FLAG NMI, enables the Timer 
B NMI, and sets Timer B to time out at the mid-point of the 
start bit. (The service code itself uses 100 of the 213 cycles in 
a half-bit, leaving a timer load value of 113.) When the NMI 
occurs. Timer B is set to time out every 426 cycles so that pin 
C can be sampled at the mid-point of each bit period. At mid- 
stop-bit the NMIs are switched back to start-bit detection 
mode - flag enabled, Timer B disabled. Eleven NMIs must be 
serviced to receive one byte of data. 

RS-232 inefficiencies 

The following characteristics do not produce errors as such, 
but needlessly limit the baud rate attainable at a given CPU 
speed. All relate to the receive function. 

1. During each byte, 450 clock cycles are consumed in manu- 
ally re-starting Timer B once per bit. The re-start routine - 
located at Sfedd ($e87f in 128 mode) - determines how long 
ago the timeout occurred, adds an allowance for its own exe- 
cution time, subtracts that sum from the bit time, and loads the 



timer with the difference. After the timer is started, its reload 
latch is reset to Sffff. This appears to be a software emulation 
of the VIC 20's 6522 VIA chip. The VIA's Timer B has no 
continuous mode, but its one-shot mode underflows to Sffff 
and continues counting down. Since the CIA's Timer B does 
operate in continuous mode, the VIA emulation seems to be 
pointless. 

2. The RS-232 driver is biased toward a late sampling of pin 
C. The sampling point is 70 cycles late in the first place 
because of code execution time between the mid-bit NMI and 
the actual sampling. (In 128 mode, sampling begins 91 cycles 
late, but works back to near mid-point at a rate of 12 cycles 
per NMI.) In addition, since the VIA emulation manually re- 
starts Timer B, any video DMA during that process may cause 
a permanent, cumulative, 40-cycle delay in all subsequent 
samplings of the current byte. Finally, the actual pin-C data 
rate of a 1200- or 2400-baud modem may range from the nom- 
inal baud rate to as much as 1.6% fast. The combination of late 
sampling points and short bit periods may result in a sampling 
past the end of a bit period. 

3. Continuous data flow hits a bottleneck at the junction of the 
stop and start bits, where three NMIs occur within one bit peri- 
od. For example, the mid-stop-bit NMI requires 287 clock 
cycles to service (325 cycles in 128 mode - the extra time 
results from saving and restoring the current bank), but at 
2400 baud the next byte may start after only 213 of those 
cycles. A related limitation is the 2224 cycles (2639 cycles in 
128 mode) of total NMI service time needed to receive one 
byte of data. At I MHz, continuous 2400-baud inflow requires 
55% (66%) of available clock cycles just to service NMIs. 

RS-232 bugs 

The defects described below cause errors without regard to 
baud rate, mode or CPU speed. 

1. The routine at Sf0a4 (Se7ec in 128 mode) disables all RS- 
232 activity so that NMIs will not corrupt disk, tape or REU 
access. It is called by the kernal routines load, save, open, 
CHKIN, chkout, LISTEN and TALK for serial bus devices and 
the datasette. It should be called, but is not, by dmacall - the 
128's REU routine at $ff50. 
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fOa4 


pha 




fOa5 


Ida 


$02al 


f0a8 


beq 


$fObb 


fOaa 


Ida 


$02al 


fOad 


and 


#$03 


fOaf 


bne 


$fOaa 


fObl 


Ida 


#$10 


f0b3 


sta 


$ddOd 


f0b6 


Ida 


#$00 


fOb8 


sta 


$02al 


fObb 


pla 




fObc 


rts 





; copy of enabled NMIs 
; none enabled - done . 
; any current activity? 
;TA(bO) or TB(bl) enabled? 
;yes, test until idle 
;no, awaiting start bit 
; disable FLAG NMI (b4) 
;all off now (?) 
; update copy 



The SfOaa-fOaf sequence pauses until the transmit buffer has 
been emptied and any incoming byte has been received. Then 
at Sf0b3 it turns off the start-bit detector. However, if an 
incoming start-bit edge should arrive after SfOaa but before 
Sf0b3, the resulting NMI servicing will disable FLAG (making 
Sf0b3 redundant) and enable the Timer B NMI. Since Sf0b8 
clears only the mask copy, the Timer B NMI will indeed take 
place, with unpredictable results. 

2. In the bsout routine the buffer pointer is incremented (at 
Sf020/$e768) before the byte to be transmitted is placed in the 
buffer (at $f026/$e76e). If the NMI service routine comes 
looking for that new byte in the interim, it will transmit the 
wrong character. 



simultaneous I/O - when Timer A generates the NMI and 
Timer B times out just as the service routine reads SddOd. 

A software solution 

The most demanding performance standard for full-duplex 
RS-232 is the error-free processing of continuous, bi- 
directional, asynchronous transmission ("CBAT"), meaning 
that data streams generated by unrelated clocks flow, without 
pause, in both directions at the same time. Fortunately, such 
performance at 2400 baud is attainable through software, even 
at 1 MHz. The approach presented here retains bit-by-bit ser- 
vicing, but adopts a few key simplifications, beginning with 
elimination of two receive NMIs. The mid-start-bit NMI exists 
only to check for a false start bit, which for technical reasons 
would never be detected on a psk/qam modem. The mid-stop- 
bit NMI tests for a framing error, or missing stop bit, which is 
ignored by most software. 

Another change is the removal from the NMI service routine 
of all matters related to parity, x-line handshake, half-duplex 
transmission, multiple stop bits, and the rsstat framing, par- 
ity, overrun and break errors. All such items take up time, are 
seldom used, and can be implemented separately if really 
needed. Finally, the VIA emulation is discarded. 

New Modem Routines 



3. The routine at $ef3b ($e67f) is used by the NMI service 
routines, and by chkin and BSOUT, to enable or disable an 
NMI source, as specified in the accumulator. 



ef3b 


sta 


$dd0d 


; enable 


or disable the NMI 


e£3e 


eor 


$02al 


; change 


copy to match 


•f41 


ora 


#$80 


; enable 


bit on 


ef43 


sta 


$02al 


; update 


copy 


ef46 


sta 


$dd0d 


; enable 


masked NMIs 


e£49 


rts 









The routine is executed while NMIs are enabled. Should an 
NMI of the opposite "direction" occur after $ef3e and before 
$ef46, the resulting servicing may change the NMI enabled for 
that direction. Upon the return, however, Sef43 or $ef46, or 
both, will restore the old (wrong) NMI. This error occurs only 
when transmission takes place in both directions simultane- 
ously. 

4. It appears that many 6526 CIA chips have a hardware defect 
involving the interrupt flag for Timer B. If Timer B times out 
at about the same time as a read of the interrupt register, the 
Timer B flag may not be set at all. Under the VIA emulation, 
Timer B will then underflow and count down Sffff cycles 
before generating another NMI. A whole series of incoming 
bytes may be lost as a result. The defect was present in five of 
six C128s and two of three C64s sampled. When "good" and 
"bad" chips were switched, the problem followed the "bad" 
chip. There appear to be no such defects with respect to the 
flags for Timer A or FLAG. This glitch can cause errors during 



Program 1 ("newmodem.src") is generic assembly language 
source code for a collection of new RS-232 routines. The code 
is not a patch to any specific BBS or terminal software, but 
rather one example of what might be installed by the author of 
such a program, or by one having access to its source code. 
The assembled code uses less than two pages of memory. In 
128 mode it must be visible in bank 15. 

The new NMI routine begins at line 3000 by pushing the reg- 
isters onto the stack (already done in 128 mode, which enters 
at 3050). Lines 3060-3170 determine which enabled NMI 
sources have triggered. The 6526 glitch is finessed by compar- 
ing the high byte of Timer B before (3060) and after (3110) 
the read of the interrupt register (3090). If the value is higher 
after the read than before, then Timer B must have timed out 
during that period. Line 3140 makes sure B's flag bit is set in 
the accumulator, and 3150 makes sure it is cleared in SddOd. 

Beginning at 3180 the routine is structured to accommodate 
CBAT. The NMI routine does only a few critical operations 
while the NMIs are disabled, saving its "housekeeping" 
chores for later. That prevents a new NMI (one occurring after 
3090) from going unserviced for too long. The critical opera- 
tion for the Timer A NMI is placement of the next outgoing bit 
on pin M (3200-3230). The FLAG NMI must load Timer B 
with the start-bit timer value and start it counting down (3270- 
3320). The Timer B NMI must sample pin C (3120). (Pin C is 
sampled on every NMI; the sampling is ignored if Timer B is 
not an NMI source.) Once these operations have been com- 
pleted, the NMIs are re-enabled (3360 or 3470). 
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Housekeeping chores for the Timer A NMI (3720-3920) 
include isolating the next output bit, or fetching the next byte 
from the transmit buffer, or stopping Timer A and disabling its 
NMI if the buffer is empty. (Timer A is loaded and started, and 
its NMI enabled, only by bsout.) In FLAG housekeeping 
(3330-3420), the FLAG NMI is disabled and the Timer B NMI 
enabled, the Timer B reload latch is loaded with the full-bit 
timer value, and the bit counter is initialized. Timer B house- 
keeping (3510-3680) processes the sampled pin-C value. If the 
last data bit has been received, the new byte is stored in the 
receive buffer. Timer B is stopped, and the NMIs are prepared 
for a new start bit - FLAG enabled. Timer B disabled. 

The procedure at 3630 is used to change the enabled NMIs. It 
disables all NMIs, calculates the new configuration, and then 
enables that configuration. The duplicate disabling instructions 
at 3640/50 are necessary because an NMI occurring during the 
first one will be serviced immediately thereafter, resulting in 
re-enabled NMIs which must be disabled again by the second 
(there is nothing left to interrupt the second). 



Calibration and performance 

The new NMI routine was tested under cbat conditions to 
establish the receive timer values which work for various com- 
binations of computer, CPU speed, video DMA activity and 
modem speed. The tests made use of the fact that a 50%-duty- 
cycle square wave also constitutes continuous transmission of 
the letter V (%01010101) in RS-232 8/N/l format. The 
square wave was generated using the serial port of CIA#1 , the 
clock output of which (CNT1) is available at pin 4 of the User 
Port. A spare card-edge connector (Cinch #50-24A-30) was 
installed in the User Port with pins 4, B and C wired together. 

Program 2 ('calibrate') was used to run the tests. It keeps the 
CNT1 "modem" clocking continuously by feeding new output 
to the CIA#1 serial port during the IRQ routine. It parks in a 
GETIN loop which prints an '*' to the screen if a received char- 
acter is not a *u*. Program 2 also provides for continuous 
transmission by filling the output buffer with u's and changing 
line 3820 to read, in effect, 4 beq getbuf '. 



Following the new NMI routine are replacements for the 
defective routines described earlier. A new DISABL at line 4000 
is a substitute for the old one at Sf0a4/e7ec. Since the old one 
cannot be re-vectored, a call to disabl should be made before 
any disk, tape or REU operation if there is any chance that the 
modem might generate an NMI. The NBSOUT routine at 5000 
is a new front end for BSOUT which corrects the buffer pointer 
problem and avoids a call to $ef3b/e67f. A direct call to rsout 
(5050) will send a character to the modem regardless of the 
current output device. 

Nchkin at 6000 is a new front end for CHKIN which avoids 
Sef3b/e67f. A direct call to INABLE (6070) will re-enable the RS- 
232 input function without also selecting device #2 for input. 
Either NCHKIN (to #2) or INABLE must be called after disk, tape 
or REU operations to re-enable start bit detection. The BAUD 
section (6090-6190) sets the receive baud rate by poking the 
correct timer values into the NMI service code. It assumes that 
the current baud rate is already reflected in the BAUDOF variable 
at $299 (Sal 6), and selects one of three baud rates (2400, 1200, 
or 300) based on the high byte value of BAUDOF. If NCHKIN (to 
#2) or INABLE will be called frequently, BAUD should be moved 
to a separate routine which is called only after OPEN or when the 
baud rate needs to be changed. Provision could also be made for 
additional baud rates if needed. 



Timer values for the receive start bit (sb) and full bit (fb), the 
CNT1 "modem" (en), and the transmit function (tx) are set in 
line 210 of Program 2 for each trial, which consists of running 
the program and looking for asterisks. If none appear then 
CBAT processing is error-free at those settings. One minute is 
enough to run through the possible overlaps of transmit and 
receive NMIs, and video DMAs if enabled. Asynchronous tim- 
ing is approximated if the fb, en, and tx values are different. 

Table 1 shows the 2400-baud test results with the tx rate fixed 
at 2400 and the fb rate fixed midway between 2400 and 1.6% 
fast. For each hardware combination, the tests determined the 
highest and lowest start-bit times (sb) providing error-free 
CBAT. While the acceptable sb range varies with each set-up, 
there is a 70-cycle range, with a mid-point of 459, which 
works in all set-ups. Any change to the new NMI routine 
would require re-calibration, and the results might be different. 

Table 2 compares the NMI service times required under the 
old and new routines. Reductions are particularly dramatic in 
the receive function. 

Program 3 ('ciatest64 v ) tests for the glitch in Timers A and B 
of CIA#2. Load and run in 64 mode only, without the card 
edge connector. Only a Timer B glitch has been found so far. 



Rsget at 7000 will fetch a character from the RS-232 input 
buffer regardless of the current input device. It differs from 
GETIN in that it does nothing to rsstat but instead returns with 
the carry flag set if the buffer was empty. 

The setup routine at 2000 points the relevant page 3 vectors to 
the new NMI, nchkin and nbsout code. Setup is the first entry 
in the jump table (1530). Also included in the jump table are the 
non-vectored routines INABLE, disabl, rsget and rsout. Final- 
ly, the receive start-bit and full-bit timer values for the three 
baud rates are located in a table beginning at 1590. 



For transmission in only one direction at a time, the 'newmo- 
dem' routines should be replaced with shorter, faster ones. The 
"simultaneous" bugs will no longer occur, separate routines 
for each NMI type can be vectored in at $318/319 in sequence, 
and NMIs need not be disabled during servicing. Much higher 
baud rates can be attained under those conditions. 

Random thoughts 

1. The usual caveats apply about cartridges, special ROMs, IEEE 
drivers, and connecting anything homemade to the User Port. 
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2. CIA chips produce a count equal to the timer load value plus 
one. So a 425 timer value is really 1022727/426 = 2400.8 baud. 

3. The SLOW command turns on the video DMAs even in 80- 
column mode (the 40-column screen shows a border). Turn off 
the DMAs by clearing the blanking bit - bit 4 of $d01 1 . Pro- 
gram 2 does that through variable dm. 

4. New drivers will not cure aborted Xmodem or Punter trans- 
fers caused by running 1 MHz transfer routines at 2 MHz, but 
they will permit the routines to be run at 1 MHz without 
modem errors. 

5. Program 1 'starts and stops the timers and also enables and 
disables their NMIs. If nothing else uses the timers, the NMIs 
could be left enabled. Time also might be saved by having the 
transmit NMIs occur only when the level on pin M needs to 
change, or at the stop bit, whichever occurs first. 



Program 1: Source code for the new serial modem routines. 



Table 1: Calibration Results for 2400 Baud. 


Compuier mode 


64 


128 


128 


128 


CPU speed (MHz) 


1 


1 


I 


2 


Display mode 


40 


40/80 


80 , 


80 


Video DMAs 


on 


on 


off 


off 


TX <Tx bit time) 


425 


425 


425 


425 


FB (Rx full bit) 


421 


421 


421 


421 


Nominal modem: 










CN (CNT1 "modem") 


426 


426 


426 


426 


Low SB (Rx start) 


394 


392 


330 


424* 


High SB 


568 


538 


618 


724 


Fast modem: 










CN 


418 


418 


418 


418 


Low SB 


350 


348 


290 


354 


High SB 


524 


494* 


580 


688 


* Most restrictive. Mid-point = 455 


K 


■ 





Table 2: 


NMI Service Times (cycles per byte). 




64 Mode 


128 Mode 




OLD 


NEW 


OLD 


NEW 


Transmit: 










Data bits 1 • 


■8 1 320 


1192 


1624 


1360 


Stop bit 


196 


148 


234 


169 


Start bit 


179 


173 


217 


194 


Total 


1695 


1513 


2075 


1723 


Receive: 










FLAG 


157 


153 


195 


174 


Start bit 


188 


- 


223 


- 


Data bits 1 


■7 1393 


959 


1659 


1106 


Data bit 8 


199 


185 


237 


206 


Stop bit 


287 


- 


325 


- 


Total 


2224 


1297 


2639 


1486 



1100 ; 






1110 ; "newmodem.src" - 64 mode. 


1120 ; 6128 


= changes for V< 


1 8 mode. 








1140 ribuf 


*m 


;8128 $c8 


1150 robuf 


=Sf9 


;8128 $ca 


1160 baudof 


=50299 


;8128 $0al6 


1170 ridbe 


=S029b 


■ ;12S $0al8 


1180 lidbs 


=S029c 


;ft28 $0al9 


1190 rodbs 


=S029d 


;$128 $0ala 


1200 rodbe 


=$029e 


;@128 $0alb 


1210 enabl 


=$02al 


;9128 $0a0f 


1220 rstkey 


=$fe56 


;8128 $fa4b 


1230 norest 


=Sfe72 


;@128 $fa5f 


1240 return 


=$febc 


;U28 $ff33 


1250 oldout 


=$flca 


;8128 $ef79 


1260 oldchlc 


=Sf21b 


;8128 $fl0e 


1270 findfn 


=Sf30f 


,il28 $f202 


1280 devnura 


=$f31f 


; 9128 $f212 


1290 nofile 


=$f701 


;8128 $f682 














1510 * 


=$ce00 


;8128 $la00 








1530 xxOO 


jmp setup 




1540 xx03 


jmp inable 




1550 xx06 


jmp disabi 




1560 xx09 


jmp rsget 




1570 xxOc 


jmp rsout 




1580 


nop 




1590 strt24 


.word SOlcb 


; 459 start-bit tines 


1600 strtl2 


.word $0442 


; 1090 


1610 strt03 


.word $1333 


;4915 


1620 M124 


.word $01a5 


; 421 full-bit times 


1630 £ulll2 


.word $Q34d 


; 845 


1640 ful!03 


.word $0d52 


;3410 








2000 setup 


Ida |<nmi64 


■U23 #<runil28 


2010 


ldy $>nmi64 


;$128 I>nmil28 


2020 


sta $0318 




2030 


sty $0319 




2040 


Ida f<nchkin 




2050 


ldy t>nchkin 




2060 


sta $031e 




2070 


sty $031f 




2080 


Ida #<nbsout 




2090 


ldy #>nbsout 




2100 


sta $0326 




2110 


sty $0327 




2120 


rts 




oivi ■— 






3000 nmi64 


pha 


;new nmi handler 


3010 


txa 




3020 


pha 




3030 


tya 




3040 


pha 




3050 nmil28 


eld 




3060 


Idx $dd07 


.sample timer b hi byte 


3070 


Ida |$7f 


; disable cia nmi's 


3080 


sta $ddOd 




3090 


Ida $dd0d 


; read/clear flags 


3100 


bpl notcia 


; (restore key) 


3110 


cpx $dd07 


;tb timeout since 3060? 
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3120 




ldy $dd01 


; (sample pin c) 


3740 




Ida #$04 


;no, prep next bit 




3130 




bcs mask 


;no 


3750 




ror $b6 


; (fill with stop bits) 




3140 




ora #$02 


;yes, set flag in ace. 


3760 




bcs store 






3150 




ora SddOd 


; read/clear flags again 


3770 


low 


Ida #$00 






3160 


mask 


and enabl 


;atask out non-enabled 


3780 


store 


sta $b5 






3170 




tax 


; these must be serviced 


3790 


exit 


jmp return 


; restore regs, rti 




3180 




lsr 


; timer a? (bit 0) 


3800 


char 


ldy rodbs 






3190 




bcc ckflag 


;no 


3810 




cpy rodbe 


; buffer empty? 




3200 




Ida SddOO 


;yes, put bit on pin at 


3820 




beq txoff 


;yes 




3210 




and #$fb 




3830 


getbuf 


Ida (robuf),y 


;no, prep next byte 




3220 




ora $b5 




3840 




inc rodbs 






3230 




sta $dd00 




3850 




sta $b6 






3240 


ckflag 


txa 




3860 




Ida #$09 


;# bits to send 




3250 




and*#$10 


;*flagnmi? (bit 4) 


3870 




sta $b4 






3260 




beq nmion 


;no 


3880 




bne low 


; always - do start bit 




3270 


strtlo 


Ida #$42 


;yes, start-bit to tb 


3890 


txoff 


ldx #$00 


;stop timer a 




3280 




sta $dd06 




3900 




stx $dd0e 






3290 


strthi 


Ida #$04 




3910 




Ida #$01 


; disable ta nmi 




3300 




sta $dd07 




3920 




bne switch 


; always 




3310 




Ida |$U 


;start tb counting 


3930 


















3320 




sta $dd0f 




4000 


disabl 


pha 


;turns off modem port 




3330 




Ida #$12 


;*flag nmi off, tb on 


4010 


test 


Ida enabl 






3340 




eor enabl 


; update mask 


4020 




and #$03 


;any current activity? 




3350 




sta enabl 




4030 




bne test 


yes. test again 




3360 




sta SddOd 


; enable new config. 


4O40 




Ida #$10 


;no, disable *flag nmi 




3370 


fulllo 


Ida #$4d 


; change reload latch 


4050 




sta SddOd 






3380 




sta $dd06 


; to full-bit time 


4060 




Ida #$02 






3390 


fullhi 


Ida #$03 




4070 




and enabl 


; currently receiving? 




3400 




sta $dd07 




4080 




bne test 


;yes, start over 




3410 




Ida #$08 


;# of bits to receive 


4090 




sta enabl 


;all off, update mask 




3420 




sta $a8 




4100 




pla 






3430 




bne chktxd 


branch always 


4110 




rts 






3440 


notcia 


ldy #$00 




4120 










t 








3450 




jap rstkey 


;or jmp norest 


5000 


nbsout 


pha 


;new bsout 




3460 


nmion 


Ida enabl 


; re-enable nmi's 


5010 




Ida 59a 






3470 




sta SddOd 




5020 




emp #$02 






3480 




txa 




5030 




bne notmod 






3490 




and #$02 


;timer b? (bit 1) 


5O40 




pla 






3500 




beq chktxd 


;no 


5050 


rsout 


sta $9e 


; output to modem 




3510 




tya 


yes sample from 3120 


5060 




sty $97 






3520 




1st 




5O70 


point 


ldy rodbe 






3530 




ror $aa 


;rs232 is lsb first 


5080 




sta (robuf),y 


;not official till 5120 




3540 




dec $a8 


;byte finished? 


5090 




iny 






3550 




bne txd 


;no 


5100 




cpy rodbs 


; buffer full? 




3560 




ldy ridbe 


;yes r byte to buffer 


5110 




beq fulbuf 


;yes 




3570 




Ida $aa 




5120 




sty rodbe 


;no r bump pointer 




3580 




sta (ribuf),; 


f ; (no overrun test} 


5130 


strtup 


Ida enabl 






3590 




inc ridbe 




5140 




and #$01 


.'transmitting now? 




3600 




Ida #$00 


; stop timer b 


5150 




bne ret3 


;yes 




3610 




sta $dd0f 




5160 




sta $b5 


;no, prep start bit, 




3620 




Ida #$12 


;tb nmi off, *flag on 


5170 




Ida #$09 






3630 


switch 


ldy #$7f 


; disable nmi's 


5180 




sta $b4 


; I bits to send, 




3640 




sty $dd0d 


; twice 


5190 




ldy rodbs 






3650 




sty SddOd 




5200 




Ida (robuf),y 






3660 




eor enabl 


; update mask 


5210 




sta $b6 


; and next byte 




3670 




sta enabl 




5220 




inc rodbs 






3680 




sta SddOd 


.■enable new config. 


5230 




Ida baudof 


;full tx bit time to ta 




3690 


toed 


txa 




5240 




sta $dd04 






3700 




lsr 


; timer a? 


5250 




Ida baudof+1 






1 3710 


chktxd bcc exit 


;no 


5260 




sta $dd05 






| 3720 




dec $b4 


;yes, byte finished? 


5270 




Ida #$11 


; start timer a 




3730 




bad char 


;yes 


5280 




sta $dd0e 
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5290 


Ida #$81 


; enable ta nmi 


5300 change 


sta $dd0d 


;nmi clears flag if set 


5310 


php 


;save irq status 


5320 


sei 


disable irq' s 


5330 


Idy |$7f 


; disable nmi's 


5340 


sty $dd0d 


; twice 


5350 


sty SddOd 




5360 


era enabl 


; update mask 


5370 


sta enabl 




5380 


sta SddOd 


; enable new config. 


5390 


pip 


; restore irq status 


5400 ret3 


clc 




5410 


ldy $97 




5420 


Ida $9e 




5430 


rts 




5440 fulbuf 


jsr strtup 




5450 


jmp point 




5460 notmod 


pla 


.back to old bsout 


5470 


jmp oldout 










6000 nchkin 


jsr findfn 


;new chkin 


6010 


bne nosuch 




6020 


jsr devnum 




6030 


Ida Sba 




6040 


emp #$02 




6050 


bne back 




6060 


sta S99 




6070 inable 


sta $9e 


;enable rs232 input 


6080 


sty $97 




6090 baud 


Ida baudof+1 


;set receive to same 


6100 


and #$06 


; baud rate as xmit 


6110 


tay 




6120 


Ida strt24,y 




6130 


sta strtlo+1 


.■overwrite value is 3270 


6140 


Ida strt24+l,j 


i 


6150 


sta strthi+1 




6160 


Ida full24,y 




6170 


sta fulllo+1 




6180 


Ida full24+l,j 


t 


6190 


sta fullhi+1 




6200 


Ida enabl 




6210 


and #$12 


;*flag or tb on? 


6220 


bne retl 


;yes 


6230 


sta $dd0f 


;no, stop tb 


6240 


Ida #$90 


turn on flag nmi 


6250 


jmp change 




6260 nosuch 


i jmp nofile 




6270 back 


Ida $ba 




6280 


jmp oldchk 
















7000 rsget 


sta $9e 


; input from modem 


7010 


sty $97 




7020 


ldy ridbs 




7030 


cpy ridbe 


; buffer empty? 


7040 


beq ret2 


;yes 


7050 


Ida (ribuf),y 


;no, fetch character 


7060 


sta $9e 




7070 


inc ridbs 




7080 retl 


clc 


;cc = char in ace. 


7090 ret2 


ldy $97 




7100 


Ida $9e 




7110 last 


rts 


;cs = buffer was empty 



Program 2: Calibration program tor the 64 or 128. 



rem "calibrate" for 64 or 128. 

rem connect user port pins 4, b 1 c. 

rem load "newmodem" object code at pi. 

rem for 128 mode, un-rem 230-250. 

rem adjust values in 210. run. * = error. 

rem run/stop restore to end trial. 

rem s = (1,2) mhz; dm = dma off(0), on(l). 

rem 

close 2: open 2,2, 0,chr$ (6)+chr${0) : ml=12288 

for i=ml to ml+116: read a: poke i,a: z=z+a: next 

if z<>15157 then prinf'data error": close2: end 

sb=459: fb=421: cn=418: tx=425: s=l: dm=l 

ri=65212: bf=peek(250)*256: bo=665: pl=52736 

remri=65331: bf=3328: bo=2582: pl=6656 

rem slow: if s=2 then fast: goto 260 

rem if dm=0 and peek(215)then poke ml+107,234 

for i=bf to bf +255 : poke i,85: next: sys pi 

a=pl+16+(tx/256 and 6}: b=sb: gosub 310 

a=a+6: b=fb: gosub 310: a=bo: b=tx: gosub310 

a=251: b=cn: gosub 310: a=598: b=ri: gosub310 

poke pl+241,0: print#2,'V;: sys ml 

q=int (b/256) : poke a+l,q: poke a,b-q*256: return 

data 162, 2, 32, 198, 255, 32, 39, 48 

data 32, 228, 255, 201, 85, 240, 249, 32 

data 183, 255, 208, 244, 169, 42, 32, 210 

data 255, 76, 8, 48, 169, 255, 141, 12 

data 220, 173, 13, 220, 108, 86, 2, 120 

data 166, 251, 164, 252, 169, 0, 141, 26 

data 208, 141, 15, 220, 169, 127, 141, 13 

data 220, 141, 25, 208, 142, 4, 220, 140 

data 5, 220, 169, 81, 141, 14, 220, 160 

data 255, 140, 12, 220, 162, 5, 173, 13 

data 220, 41, 1, 240, 249, 202, 208, 246 

data 140, 12, 220, 169, 28, 141, 20, 3 

data 169, 48, 141, 21, 3, 169, 136, 141 

data 13, 220, 88, 96, 173, 17, 208, 41 

data 239, 141, 17, 208, 96 



PD 


100 


MA 


110 


CE 


120 


DK 


130 


LJ 


140 


LI 


150 


MG 


160 


IM 


170 


CL 


180 


LP 


190 


DO 


200 


PC 


210 


EJ 


220 


NB 


230 


HI 


240 


NO 


250 


FG 


260 


KI 


270 


10 


280 


DI 


290 


NP 


300 


GG 


310 


HI 


320 


PO 


330 


DI 


340 


CJ 


350 


EJ 


360 


FA 


370 


KM 


380 


IA 


390 


AI 


400 


BL 


410 


IA 


420 


KJ 


430 


PP 


440 


IK 


450 


AG 


460 



Program 3: CIA chip test for the (>4. 



rem "ciatest64" for 64 mode only. 

rem * = interrupt flag error. 

rem reset after test. 

rem 

n=12800: for i=n to n+103: read a: poke i,a: z=z+a 

next: if z<>11949 then prinf'data error":end 

sys 65412: x=not x: poke 251, x and 255 

print chr$(147):"any key switches timer." 

print "testing timer ":chr$(65-x) : sys n 

wait 198,7: poke 198,0: goto 560 

data 170, 169, 98, 160, 3, 141, 4, 221 

data 140, 5, 221, 142, 6, 221, 140, 7 

data 221, 169, 17, 141, 14, 221, 141, 15 

data 221, 162, 2, 160, 7, 36, 251, 48 

data 3, 202, 160, 5, 134, 252, 140, 77 

data 50, 140, 85, 50, 138, 73, 131, 162 

data 72, 160, 50, 142, 24, 

data 3, 174, 13, 221, 141, 

data 72, 138, 72, 152, 172, 

data 173, 13, 221, 216, 204, 

data 12, 13, 13, 221, 37, 252, 208, 5 

data 169, 42, 32, 210, 255, 76, 188, 254 



LO 


500 


MA 


510 


HG 


520 


AD 


530 


BL 


540 


OA 


550 


EG 


560 


00 


570 


ID 


580 


JB 


590 


EI 


610 


JG 


620 


GO 


630 


EL 


640 


GG 


650 


OL 


660 


JL 


670 


EH 


680 


FL 


690 


FF 


700 


NM 


710 


JE 


720 



3, 140, 25 

13, 221, 96 

7, 221, 72 

7, 221, 176 
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Program 4: Generator for the C64 new modem routines. 

BC 100 ran generator for "newmod64.obj" 

FL 110 n$="newmod64.obj": rem name of program 

GF 120nd=494: sa=52736: ch=58580 



\u 


>i lines uu-zw 


i, set 


1 CM 


scanc 


iara c 


lenera 


itor on pa 


DE 


1000 data 76, 


28, 


206, 


76, 


156, 


207, 


76, 


8 


IJ 


1010 data 207, 


76, 


213, 


207, 


76, 


41, 


207, 


234 


IM 


1020 data 203, 


l 


66, 


4, 


51, 


19, 


165, 


1 


CI 


1030 data 77, 


3, 


82, 


13, 


169, 


59, 


160, 


206 


JB 


1040 data 141, 


24, 


3, 


140, 


25, 


3, 


169, 


140 


NB 


1050 data 160, 


207, 


141, 


30, 


3, 


140, 


31, 


3 


NG 


1060 data 169, 


33, 


160, 


207, 


141, 


38, 


3, 


140 


JA 


1070 data 39, 


3, 


96, 


72, 


138, 


72, 


152, 


72 


EK 


1080 data 216, 


174, 


7, 


221, 


169, 


127, 


141, 


13 


CE 


1090 data 221, 


173, 


13, 


221, 


16, 


77, 


236, 


7 


JF 


1100 data 221, 


172, 


1, 


221, 


176, 


5, 


9, 


2 


OF 


1110 data 13, 


13, 


221, 


45, 


161, 


2, 


170, 


74 


CI 


1120 data 144, 


10, 


173, 


0, 


221, 


41, 


251, 


5 


CG 


1130 data 181, 


141, 


0, 


221, 


138, 


41, 


16, 


240 


JN 


1140 data 47, 


169, 


66, 


141, 


6, 


221, 


169, 


4 


HH 


1150 data 141, 


7, 


221, 


169, 


17, 


141, 


15, 


221 


MM 


1160 data 169, 


18, 


77, 


161, 


2, 


141, 


161, 


2 


JM 


1170 data 141, 


13, 


221, 


169, 


77, 


141, 


6, 


221 


n: 


1180 data 169, 


3, 


141, 


7, 


221, 


169, 


8, 


133 


, IN 


1190 data 168, 


208, 


60, 


160, 


0, 


76, 


86, 


254 


NK 


1200 data 173, 


161, 


2, 


141, 


13, 


221, 


138, 


41 


m 


1210 data 2, 


240, 


44, 


152, 


74, 


102, 


170, 


198 


HG 


1220 data 168, 


208, 


34, 


172, 


155, 


2, 


165, 


170 


JP 


1230 data 145, 


247, 


238, 


155, 


2, 


169, 


0, 


141 


AG 


1240 data 15, 


221, 


169, 


18, 


160, 


127, 


140, 


13 


AP 


1250 data 221, 


140, 


13, 


221, 


77, 


161, 


2, 


141 


NO 


1260 data 161, 


2, 


141, 


13, 


221, 


138, 


74, 


144 


LB 


1270 data 14, 


198, 


180, 


48, 


13, 


169, 


4, 


102 


JC 


1280 data 182, 


176, 


2- 


169, 


0, 


133, 


181, 


76 


BE 


1290 data 188, 


254, 


172, 


157, 


2, 


204, 


158, 


2 


JA 


1300 data 240, 


13, 


177, 


249, 


238, 


157, 


2, 


133 


EE 


1310 data 182, 


169, 


9, 


133, 


180, 


208, 


228, 


162 


EB 


1320 data 0, 


142, 


14, 


221, 


169, 


1, 


208, 


188 


NB 


1330 data 72, 


173, 


161, 


2, 


41, 


3, 


208, 


249 


JD 


1340 data 169, 


16, 


141, 


13, 


221, 


169, 


2, 


45 


KC 


1350 data 161, 


2, 


208, 


237, 


141, 


161, 


2, 


104 


EF 


1360 data 96, 


72, 


165, 


154, 


201, 


2, 


208, 


96 


PH 


1370 data 104, 


133, 


158, 


132, 


151, 


172, 


158, 


2 


GM 


1380 data 145, 


249, 


200, 


204, 


157, 


2, 


240, 


74 


MN 


1390 data 140, 


158, 


2, 


173, 


161, 


2, 


41, 


1 


DE 


1400 data 208, 


58, 


133, 


181, 


169, 


9, 


133, 


180 


NK 


1410 data 172, 


157, 


2, 


177, 


249, 


133, 


182, 


238 


FI 


1420 data 157, 


2, 


173, 


153, 


2, 


141, 


4, 


221 


KI 


1430 data 173, 


154, 


2, 


141, 


5, 


221, 


169, 


17 


JO 


1440 data 141, 


14, 


221, 


169, 


129, 


141, 


13, 


221 


AN 


1450 data 8, 


120, 


160, 


127, 


140, 


13, 


221, 


140 


KL 


1460 data 13, 


221, 


13, 


161, 


2, 


141, 


161, 


2 


EB 


1470 data 141, 


13, 


221, 


40, 


24, 


164, 


151, 


165 


LA 


1480 data 158, 


96, 


32, 


59, 


207, 


76, 


45, 


207 


BF 


1490 data 104, 


76, 


202, 


241, 


32, 


15, 


243, 


208 


FJ 


1500 data 60, 


32, 


31, 


243, 


165, 


186, 


201, 


2 


NA 


1510 data 208, 


54, 


133, 


153, 


133, 


158, 


132, 


151 


FG 


1520 data 173, 


154, 


2, 


41, 


6, 


168, 


185, 


16 


HO 


1530 data 206, 


141, 


114, 


206, 


185, 


17, 


206, 


141 


MP 


1540 data 119, 


206, 


185, 


22, 


206, 


141, 


140, 


206 


FE 


1550 data 185, 


23, 


206, 


141, 


145, 


206, 


173, 


161 


JB 


1560 data 2, 


41, 


18, 


208, 


35, 


141, 


15, 


221 


AI 


1570 data 169, 


144, 


76, 


101, 


207, 


76, 


1, 


247 


NG 


1580 data 165, 


186, 


76, 


27, 


242, 


133, 


158, 


132 


1 IE 


1590 data 151, 


172, 


156, 


2, 


204, 


155, 


2, 


240 


1 DG 


1600 data 8, 


177, 


247, 


133, 


158, 


238, 


156, 


2 


IP 


1610 data 24, 


164, 


151, 


165, 


158, 


96 







Program 5: Generator for the CI 28 new modem routines. 

MN 100 rem generator for "newmodl28.obj" 

NC 110 n$="newmodl28.obj": rem name of program 

DG 120nd=494: sa=6656: ch=51020 

(for lines 130-260, see the standard generator on page 5) 



KG 1000 

KD 1010 

IM 1020 

PN 1030 

JB 1040 

KK 1050 

JB 1060 

JA 1070 

EK 1080 

CE 1090 

JF 1100 

KF 1110 

CI 1120 

CG 1130 

JN 1140 

HH 1150 

IM 1160 

JM 1170 

NL 1180 

BM 1190 

IK 1200 

m 1210 

DE 1220 

MN 1230 

AG 1240 

BP 1250 

IO 1260 

LB 1270 

JC 1280 

GP 1290 

LL 1300 

EE 1310 

EB 1320 

HG 1330 

JD 1340 

GC 1350 

EF 1360 

CI 1370 

PK 1380 

AO 1390 

DE 1400 

AJ 1410 

NH 1420 

BI 1430 

JO 1440 

AN 1450 

GL 1460 

EB 1470 

CK 1480 

JA 1490 

PJ 1500 

NA 1510 

MF 1520 

MC 1530 

KB 1540 

MB 1550 

PO 1560 

BM 1570 

PF 1580 

W 1590 

LD 1600 

IP 1610 



data 76, 
data 27, 
data 203, 
data 77, 
data 141, 
data 160, 
data 169, 
data 39, 
data 216, 
data 221, 
data 221, 
data 13, 
data 144, 
data 181, 
data 47, 
data 141, 
data 169, 
data 141, 
data 169, 
data 168, 
data 173, 
data 2, 
data 168, 
data 145, 
data 15, 
data 221, 
data 15, 
data 14, 
data 182, 
data 51, 
data 240, 
data 182, 
data 0, 
data 72, 
data 169, 
data 15, 
data 96, 
data 104, 
data 145, 
data 140, 
data 208, 
data 172, 
data 26, 
data 173, 
data 141, 
data 8, 
data 13, 
data 141, 
data 158, 
data 104, 
data 60, 
data 208, 
data 173, 
data 26, 
data 119, 
data 185, 
data 10, 
data 169, 
data 165, 
data 151, 
data 8; 
data 24, 



28, 26, 76, 

76, 213, 27, 

1, 66, 4, 

3, 82, 13, 

24, 3, 140, 

27, 141, 30, 

33, 160, 27, 

3, 96, 72, 

174, 7, 221, 

173, 13, 221, 

172, 1, 221, 
13, 221, 45, 
10, 173, 0, 

141, 0, 221, 
169, 66, 141, 

7, 221, 169, 
18, 77, 15, 
13, 221, 169, 

3, 141, 7, 
208, 60, 160, 

15, 10, 141, 
240, 44, 152, 
208, 34, 172, 
200, 238, 24, 
221, 169, 18, 

140, 13, 221, 
10, 141, 13, 

198, 180, 48, 

176, 2, 169, 
255, 172, 26, 

13, 177, 202, 
169, 9, 133, 

142, 14, 221, 

173, 15, 10, 

16, 141, 13, 
10, 208, 237, 
72, 165, 154, 

133, 158, 132, 
202, 200, 204, 
27, 10, 173, 
58, 133, 181, 
26, 10, 177, 
10, 173, 22, 
23, 10, 141, 

14, 221, 169, 
120, 160, 127, 
221, 13, 15, 

13, 221, 40, 
96, 32, 59, 
76, 121, 239, 
32, 18, 242, 
54, 133, 153, 
23, 10, 41, 

141, 114, 26, 
26, 185, 22, 
23, 26, 141, 
41, 18, 208, 

144, 76, 101, 
186, 76, 14, 
172, 25, 10, 

177, 200, 133, 
164, 151, 165, 



156, 27, 

76, 41, 
51, 19, 

169, 64, 

25, 3, 
3, 140, 

141, 38, 
138, 72, 
169, 127, 

16, 77, 
176, 5, 

15, 10, 

221, 41, 

138, 41, 

6, 221, 

17, 141, 
10, 141, 

77, 141, 
221, 169, 

0, 76, 

13, 221, 

74, 102, 

24, 10, 

10, 169, 

160, 127, 

77, 15, 

221, 138, 

13, 169, 

0, 133, 

10, 204, 

238, 26, 

180, 208, 

169, 1, 

41, 3, 

221, 169, 

141, 15, 

201, 2, 
151, 172, 

26, 10, 
15, 10, 

169, 9, 

202, 133, 
10, 141, 

5, 221, 
129, 141, 
140, 13, 

10, 141, 
24, 164, 

27, 76, 
32, 2, 

165, 186, 
133, 158, 

6, 168, 
185, 17, 

26, 141, 
145, 26, 

35, 141, 

27, 76, 
241, 133, 
204, 24, 
158, 238, 
158, 96 



76, 8 

27, 234 

165, 1 

160, 26 

169, 140 

31, 3 

3, 140 

152, 72 

141, 13 



7 
2 

74 
5 



236, 

9. 

170, 

251, 

16, 240 

169, i 
15, 221 
15, 10 

6, 221 

8, 133 

75, 250 

138, 41 

170, 198 
165, 170 

0, 141 

140, 13 

10, 141 

74, 144 

4, 102 

181, 76 
27, 10 
10, 133 

228, 162 

208, 188 

208, 249 

2, 45 

10, 104 

208, 96 

27, 10 

240, 74 

41, 1 

133, 180 

182, 238 
4, 221 

169, 17 

13, 221 

221, 140 

15, 10 

151, 165 

45, 27 

242, 208 

201, 2 

132, 151 

185, 16 

26, 141 

140, 26 

173, 15 

15, 221 

130, 246 

158, 132 

10, 240 

25, 10 



□ 
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Z3PLUS 



An extensive and versatile operating 
system enhancement for C128 CP/M mode 



L 



Review by M. Garamszeghy 

Z3PLUS 

$69.95 from: 

Z Systems Associates 

1435 Centre Street 

Newton Centre, MA 02159-2469 

(617) 965-3552 

One of the most frequent complaints I hear about CP/M on the 
C128 is its lack of 'user friendliness', especially towards Com- 
modore junkies who have never bothered to acquaint them- 
selves with other computer systems. Ask what would consti- 
tute a user-friendly system, and you are likely to get as many 
different responses as people you ask. This seems to indicate 
that the ideal operating system should be customizable so that 
it can appeal to diverse tastes. Z3PLUS is such a system. 

Z3PLUS, or the "Z System" as it is otherwise known, has 
evolved considerably over the years since it made its debut as 
ZCPR, almost at the dawn of CP/M computing. Versions exist 
for almost every Z80 CP/M system around, the latest release 
running under Cp/m 3.0 or Cp/m Plus, which just happens to be 
the CP/M used by the CI 28 as well as a few other less impor- 
tant (to me, anyway) computers. 

What is Z3PLUS? 

Z3PLUS is essentially an enhanced replacement command pro- 
cessor for the standard CP/M CCP.COM operating environment. 
It is a user interface that provides features such as named 
directories (which can be named across drives and user areas), 
extensive command line editing, keyboard macros and 
enhanced batch file processing. 

The system comes complete with a number of operating sys- 
tem shells of varying sophistication that allow you to perform 
routine housekeeping functions such as running programs and 



copying files from a point-and-shoot type menu. You can still 
run virtually all standard CP/M programs when using the Z 
System, as well as many Z System-specific utilities. 

Z3PLUS comprises the main operating module (Z3Plus.COM) 
and a number of transient command and utility programs. The 
commands are broken down into three segments: 

• the FCP (Flow Command Package), which is used to decide 
branching and conditional execution in batch file type 
processing (such as IF and ELSE); 

• the RCP (Resident Command Package), containing general 
commands (such as echo and CLS); 

• the cpr (Command PRocessor), which contains system 
commands (like GET, GO and jump). 

The Z System is customizable in a number of ways. The first 
level of customization involves which commands you decide 
to include with your system. 

The 'stock' Z3PLUS system includes a wide variety of options 
and commands in each of the three command types outlined 
above, such as CLS (clear screen); echo (print message to 
screen); poke (for changing system memory); IF, and, or and 
ELSE (for conditional batch file execution); GET (load a file); 
GO, JUMP (execute a previously loaded file); etc. 

Any or all of these commands can be included in your person- 
al command library. Obviously, the more commands you make 
resident, the more memory will be required by system over- 
heads. 

By using GET and GO separately, you can load and run pro- 
grams in areas other than the default start of TPA, providing, of 
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course, that the files were assembled with the non-standard 
start address in mind. This allows you to have more than one 
program in memory at once by having each located in a differ- 
ent area of RAM. (In fact, most of the Z System shells and utili- 
ties work in this fashion.) 

An interesting point is that get is not restricted to loading pro- 
gram (COM) files, and can even be used to 'load' text files. Of 
course, you will not be able to execute the text file, but you 
can bring it into memory if you wish. 

The second level of customization involves the use of 'aliases' 
and script files* (an 'alias' is defined in the manual as a "single 
word or command that stands for a longer or compound com- 
mand"). The alias allows you to set up custom names for your 
favourite command sequences. 

Scrip! files are more extensive and interactive than aliases, and 
can be combined into libraries containing some very sophisti- 
cated custom menu routines. You write them yourself and can, 
therefore, include whatever you wish in them. 

Of named directories ' 

One of the many interesting features of Z3PLUS is its use of 
the CP/M user areas as named directories. This can help people 
to organize large disks into smaller areas associated with easy 
to remember labels. 



Ease stands for 'Error And Shell Editor*. A 'shell' can be 
loosely defined as a user interface that provides some degree 
of simplification for accessing operating system features. In 
addition to providing a powerful command line editor (the 
command codes are basically compatible with WordStar), 
EASE also provides a 'history' file of previously executed com- 
mands in sequence that can be easily retrieved, edited and re- 
executed. 

Zfiler is the second operating shell provided with Z3PLUS. It 
is basically a point-and-shoot menu-driven file management 
program that does things like batch copying, running other 
programs, etc. Like the other Z3PLUS utilities, it is clean and 
very easy to use. 

(One interesting feature about the Z System is that it allows 
you to use multiple levels of shells. If you first activated the 
EASE shell, then went into ZFILER, you would go back to EASE 
when you exited ZFILER. You then exit EASE to get back to the 
Z3PLUS system.) 

Zpatch is a hexadecimal file editor. It is easier to use than the 
patching modes of a debugger such as SID because it provides 
a full-screen editor that works in both HEX and ASCII modes. 

SALIAS is a mini text editor used for editing and creating alias 
script files that uses WordStar-type control code commands for 
editing and cursor movement. 



For example, with the EDITNDR you can define user area 15 on 
drive M as the 'SYSTEM* directory. Now when you log onto 
user 15 of drive M:, the prompt will display the name of the 
directory 'SYSTEM' in addition to the usual CP/M 'MIS' prompt. 

When in the Z System, and from within most of its utilities, 
you can change to the named directory area by simply specify- 
ing the directory label without having to remember the exact 
drive code and user area. The named directory list can also be 
saved (using savendr) for future use. 

Z3PLUS also provides for password protection of files and 
directories. 



In addition, SALIAS can be used for other general editing of 
short text notes as well. 

Arlnz is an alias library manager of sorts. It allows you to 
combine many single alias script files into one large one, thus 
saving on disk overhead space (one large file can take up sig- 
nificantly less disk space than many small ones due to the 
CP/M disk allocation unit size of 1 or 2 kilobytes on the CI 28). 
When you use ARUNZ, you specify the name of the alias 'mod- 
ule' you wish to run, and arunz will extract it from the alias 
library file (ALIAS.CMD), then execute it. 

The documentation 



The tools and utilities 

Most of the utilities provided on the distribution version of 
Z3PLUS are public domain. (This does not mean, however, that 
you get the same old tired programs that you probably already 
have several copies of in your library. They have been put into 
the public domain by their various authors to the benefit of all 
Z System users.) 

The major ones, such as the operating system shells EASE and 
ZFILER, have been specifically written to run in the Z3PLUS 
environment, so would not do too well without it. (They are 
public domain in the sense that you are free to copy and use 
them as you see fit. The Z3PLUS.COM main system modules are 
not public domain, however.) 



If I could say but one thing to the first time Z3PLUS user, it 
would be: read the manual, front to back, in that order, and do 
not skip anything. The manual, like the Z3PLUS system, was 
written primarily by a physicist at MIT. (This person is so logi- 
cal he would make Mr. Spock green(er) with envy, if he were 
capable of such emotion.) The manual was written to be read 
in consecutive order. 

(As a physicist, he should be familiar with the concept of 
Brownian motion, which is how I think most people, myself 
included, tend to read software manuals - randomly taking bits 
here and there. I made the mistake of skipping a chapter in the 
middle and was confused for quite some time until I realized 
that the chapter I had missed contained some vital information 
that I needed.) 
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Once you convince yourself that reading the manual is 
required, initial set-up of the Z3PLUS operating system is quite 
simple and straightforward. You define your terminal capabili- 
ties (Saints be praised, the terminal type selection menu even 
includes an entry for the C128!) and rename a couple of files 
(this is the less obvious part that killed me before I read the 
manual in detail). Type in the magic word Z3PLUS and away 
you go. 

The documentation itself is clear enough, although somewhat 
lacking when it comes to details. For example, in the section 
dealing with perhaps the most important utility, ZFILER (the 
general file#handling, copying etc. utility), the part describing 
the command options merely tells you to look at the menu list- 
ing on the screen. I think that at least a command summary 
could have been expected. 

(To their credit, however, a more detailed technical reference 
manual can be had, at extra cost. A bibliography of suggested fur- 
ther reading is also supplied for those who may be interested.) 

To get around the problem of having to read the manual front 
to back. I would suggest better cross-referencing among the 
sections, especially between sections that contain vital infor- 
mation required to get a given utility to work. 

The Z System is also supported by a network of BBSs 
(referred to as "Z-Nodes"), which supply up to date techincal 
info and help as well as providing a convenient method to dis- 
tribute new programs written for the Z System. A list of Z- 
Nodes is included on the Z3PLUS disk. 

Final impressions 

Cp/m is a disk-intensive operating system. Z3PLUS is perhaps 
even more so because of its reliance on transient commands 
and script batch files. Because of this, a fast drive is impera- 
tive (don't try it with a 1541, you will probably die of old age) 
and a RAM disk is even better. 

(An interesting combination is a 64k Quick Brown Box bat- 
tery-backed RAM cartridge with the QDisk CP/M driver soft- 
ware (reviewed in a recent issue of Twin Cities-128). With this 
you can load most of the Z3PLUS main files and utilities into a 
non-volatile ram disk and have them available as soon as you 
start up CP/M each time without having to copy them into the 
1750 RAM disk.) 

When I first started up my copy of Z3PLUS, I thought, "anoth- 
er semi-useful product". However, as I used it more, and dis- 
covered more of its features, I found myself liking it more and 
more and consequently using it more and more. 

It sort of grows on you. Although $69.95 may seem like a fair 
bit to spend on an operating system enhancement, it is well 
worth it if you are seriously into CI 28 CP/M. What you get is 
an easily expandable and customizable operating environment 
that can be as powerful as you want to make it. EJ 



C For CP/M 

The BDS C Compiler v1.6 

The original, fast CP/M-80 C language 
development system is now available 
once again directly from BD Software! 

• Over 700K of materials, including full 
sources for: all libraries, runtime pkg, 
RED integrated editor, CDB source-level 
debugger, CMODEM program, utilities 

. Ideal for most ROM-based applications 

• Made to run fast on floppy-only systems 

• Many P.D. applications available (CUG) 
. Fully supported by author Leor Zolman 

Now only $90 per copy! 

BD Software 

P.O. Box 2368 

Cambridge, Ma. 02138 

(617) 576-3828 

Free UPS 2nd-day-air delivery for pre-paid orders. C.O.D., MC, 
VISA orders accepted. Please specify a soft-sectored disk format! 



CHIP CHECKER 




• Over 650 Digital ICs • 8000 National + Sig. 

• 75/54 TTL (Als.as.f,h,l,ls.s) • 9000 TTL 

• 74/54 CMOS (C.hc. net. sc) • 14-24 Pin Chips 

• 14/4 CMOS • .3" + .6" IC Widths 

Pressing a single key identifies/tests chips with ANY 
type of output in seconds. The CHIP CHECKER now 
also tests popular RAM chips. The CHIP CHECKER is 
available for the C64 or C128 for $159. The PC com- 
patible version is $259. 

DUNE SYSTEMS 

2603 Willa Drive 

St. Joseph, Ml 49085 

(616) 983-2352 



Transactor 



71 



February 1989: Volume 9, Issue 3 



JiffyDOS for the C64/C128 



"Look, Ma - no cables!" 



Hardware review by Noel Nyman 

JiffyDOS is available for C64, C64-C, SX64, CI 28, C128-D 
and 1541I1541-CI1541-1L I57L I58I.FSD, MSD, 
Excelerator +, Excel 2001 , Enhancer 2000 

C64 series and one drive - $49.95 
C128 series and one drive - $59.95 
additional drive ROMs - $24.95 
all prices plus shipping, US dollars » 

Creative Micro Designs, P.O. Box 789, 
Wilbraham, MA 01095, (413) 525-0023 

Specify computer and disk drive models when ordering 

My first encounter with hardware to speed up my C64/1541 
combination was 1541 FLASH. It was incredibly fast compared 
to stock machines. Block reads with "Disk Doctor" were on 
the screen almost before you could release the RETURN key. It 
also sported an extra cable between the drive and the Datasset- 
te port. You could put that plug in upside down. I found that 
out the hard way. You could break the wires off the plug 
(found that out the hard way, too). 

FLASH permanently replaced the computer and disk drive 
ROMs (Read Only Memories), and worked only with the 1541. 
It was supposed to be compatible with everything. But the 
'newest' copy protection systems used 1541 ROM codes, and 
wouldn't work with FLASH. 

That was several years ago, and I'm sure flash has improved. 
It, and many similar products, still require an extra cable be- 
tween the computer and disk drives. A corollary of Murphy's 
Law says that the cable supplied will always be just inches 
short of what's needed to locate your equipment where you 
want it. 

A product that does not require extra wiring is JiffyDOS from 
Creative Micro Designs. The system uses the standard serial 
bus cable for all data transfers. 

JiffyDOS replaces ROMs in the computer and disk drives. I test- 
ed it on a C64 (ROM-3) with two 1541 disk drives. Both drives 
were equipped with JiffyDOS ROMs, although that's not neces- 



sary. The system will work at normal speed with any addition- 
al drives that are not upgraded. 

Unlike some cartridge-based products, ROM replacements 
speed up save and "block access", as well as LOAD. JiffyDOS 
loads files about nine times faster than a standard system. 
Saves are about three times faster. 

JiffyDOS works at this faster speed with all types of files, and 
with "block accesses" as well. Programs such as SuperBase 
may load rapidly with many other products. But, they operate 
at normal 'slow' speed because they rely heavily on sequential 
or relative files. JiffyDOS improves the drive performance on 
any SEQ, rel, or USR file. Direct block access was also about 
three times faster in my tests. 

JiffyDOS uses the standard Commodore DOS format to save 
files. It changes the * interleave' (the number of disk sectors 
skipped between consecutive sectors of a file) to six. Com- 
modore uses an interleave of ten. This makes for faster loads 
of files SAVEd with JiffyDOS, when JiffyDOS is used. Standard 
DOS can still read these files too, but a bit more slowly then 
normal. 

One disadvantage of ROM replacement is that you must disas- 
semble your computer and disk drive to make the installation. 
Creative Micro tries to make this as painless as possible. They 
provide six pages of step-by-step instructions for the comput- 
er, and seven pages for the disk drive. There are clear draw- 
ings of the various circuit board versions, with the location of 
the ROM to be removed, and similar drawings showing the 
JiffyDOS ROM orientation. The instructions are easy to follow, 
and have enough cautions and comments to keep even a 
novice from running into difficulties. 

I had a minor 'problem" reading a special note for 64C owners. 
It refers to the ROM for the "older C64 boards" as having 24 
pins, while the correct ROM for newer 64Cs has 28 pins. 

I have a C64, one of the older boards. But, the ROM I received 
has 28 pins. The ROM is mounted on a small circuit board. The 
board has 24 pins on it, which fit into the Kernal ROM socket 
on the C64 board. The note apparently refers to the number of 
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JiffyDOS improves the drive 

performance on any SEQ, REL, 

or USRfile. Direct block access 

was also about three times 

faster in my tests... 



pins on the circuit board, not on the ROM chip itself. (Creative 

Micro says that a new version of the instructions makes this 
clear.) 

Which brings up the other disadvantage of ROM replacements. 
If you have an older C64, your Kernal ROM may not be in a 
socket. To install JiffyDOS, you'll have to unsolder the ROM 
from the circuit board. This is not a job to be taken on lightly. 
If you don't have experience with unsoldering integrated cir- 
cuits, you should enlist the aid of a professional. Any compe- 
tent computer tech should be able to remove your Kernal ROM 
and install a low profile socket in its place for a few dollars. 
Many C64s, and all 64Cs and CI 28s have the Kernal ROM 
socketed rather than soldered in place. 

Most 1541 ROMs are socketed. A few rare exceptions have 
ROMs mounted on ' piggyback' boards. Although these can be 
unsoldered, the JiffyDOS ROM and socket mounted on the pig- 
gyback board will sit too high to clear the top cover. If you en- 
counter this problem. Creative Micro gives you the option of a 
free special replacement board. 

A wedge, and more 

JiffyDOS adds several features besides faster disk access. The 
usual 'wedge' commands are available, with the usual syntax. 

/filename loads a BASIC program. %filename will do the 
same for a machine language file. @$ displays a disk directo- 
ry, @SO:filename will scratch a file, etc. The > symbol can be 
used in place of the @. 

JiffyDOS also defines the eight function keys with commonly 
used wedge commands, and run and LIST. @F toggles these 
definitions on and off. 

'filename verifies a file against memory. @U will 'un-new' a 
BASIC program. @>D:i1lename lists a BASIC program to the 
screen without disturbing memory. The listing can be paused 
by pressing any key. The listing can be redirected to a printer 

with OPEN4.4: CMD4. 

@T:filename will display or 'type' sequential files on the 
screen, again without disturbing memory. Pressing any key 
will pause the display. Cmd will redirect the output to a printer 
or disk drive. You can use @T to copy a sequential file to 



another disk drive, although "ready." will be appended to the 
end of the copy. 

Control-P will print the current low resolution text screen on 
your printer... sometimes. The printer must be device #4, and 
either a Commodore printer or a good emulation. The com- 
mand worked fine in direct mode. 

I hoped to get hard copy of screens from databases and spread- 
sheets. But, CONTROL-P didn't work from inside most pro- 
grams. Occasionally one of the public domain "Disk Doctors" 
printed, but only in upper case/graphics mode, although the 
screen was upper/lower case. 

@N0:disk,id formats a disk in about 20 seconds - not as fast 
as some systems. But the documentation claims that all normal 
error checking is maintained. @N2:disk,id formats both sides 
of a disk for 1571 drives in 1541 mode. This facilitates using 
both heads when working with a C64/1571. 

@B toggles 'head bumping' on the 1541. With bumping off, 
disk read errors will not cause the obnoxious misaligning rat- 
tle. Some software may send its own code to the drive which 
turns the bump back on. In that case, two @B commands are 
needed to turn bumping off again. More on this in a moment. 

@Q disables the wedge and function key commands. Fast disk 
access routines are still in place. A SYS to an address in ROM 
will re-enable the functions that @Q kills. 

Wedge commands can be used in basic programs. They can 
be chained, several commands on one line. 

@"#9" : e**S0:test* H : @"#8" 

This can be done in program or direct mode. Note that the 
quotes are required, and an @$ in the chain will cause the re- 
maining commands to be skipped. 

The wedge commands will accept string variables, but only in 
program mode. Numeric variables can be used for some pa- 
rameters, such as disk drive numbers, in either mode. 

Compatibility and copyrights 

Creative Micro claims that JiffyDOS is completely compatible 
with all commercial hardware and software. They guarantee it 
for 30 days from purchase. If you find something that won't 
work, you can return JiffyDOS for a full refund. 

Obviously, a replacement with all these features changes the 
Kernal ROM code substantially. As usual, the extensive Datas- 
sette routines are replaced with the new code. That alone 
would make the ROM incompatible with one piece of "com- 
mercial hardware" - the Datassette. 

Some products avoid this problem by providing a board with 
two sockets - one for the new ROM and one for your old Kernal 
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ROM. A switch selects one or the other; hence, full compatibil- 
ity. If something won't work, just throw the switch. 

JiffyDOS does this one better. The small circuit board with its 
24 pins holds only one ROM. It does have a toggle switch sol- 
dered to it, on about a foot of wire. You mount this switch in a 
hole you drill in the plastic case. The installation instructions 
suggest places where the switch won't be in the way of inter- 
nal workings. Switches are connected to the ROMs for disk 
drives as well. 

The switch selects one of two 8K banks of memory in the 
ROM. One is JiffyDOS. The other is supposed to be fully com- 
patible with your old computer ROM. When 1 threw the switch 
and reset the computer, I was greeted with the familiar sign-on 
message - the exact same message. 

Curious, I checked the 'stock' ROM code against the original 
Kernal ROM. Not only are they "compatible", they're 
byte-for-byte identical! This makes for a curious situation re- 
garding Commodore's copyright on 
the ROM code. It does ensure that the 
user has full compatibility. It also 
gives you a ROM upgrade in case you 
have an older (ROM-1 or ROM-2) C64. 



tempts when a disk error is encountered. A 5 causes the normal 
activity, complete with head bump. A 133 bypasses the bump- 
ing part (the high bit is set.. .133 = 128 + 5). This is a 'tradi- 
tional' method of eliminating head bump. But, a drive reset 
defeats it. So, some software may still cause head bumps. 

JiffyDOS changes several of the vectors in the 768-779 ($0300 - 
S030B) range. @Q resets them to stock values. Basic add-on 
utilities and other programs also change these vectors, to point 
at themselves. A well-written program will save the vector it 
replaces, and jump to it when done. But, not all programs are 
well written. Many programmers will assume the stock values 
and jump directly to them. This will bypass the JiffyDOS com- 
mands. 

I was pleasantly surprised to find that JiffyDOS does not use lo- 
cation 186 (SBA) to determine which drive to access for wedge 
commands. Location 186 holds the current device number, ac- 
tually the last device accessed. If you just printed something 
on the printer, location 186 will have a value of 4. 



If you need to disable JiffyDOS on the 
computer and several disk drives, 
you'll have to throw a switch on each. 
This could be a bother if you have sev- 
eral programs requiring the change. 

You can make it easier by mounting 

the drive switches on the front panels, or under the front bezel 

on 157 Vs. 

Compatibility and RAM 

The manual says that JiffyDOS "does not use any extra RAM 
(Random Access Memory) in your computer". Well... almost. 
It's hard to toggle features without using some memory to re- 
member which state the toggle is in. If the add-on hardware 
has no RAM, it must borrow some from the computer. 

JiffyDOS has only ROM. So, some memory locations are used. 
The designers minimized this impact by using locations that 
are uncommon to most software routines. 

Locations 674 (S02A2) and 675 (S02A3) are used by the stock 
Kernal to save CIA (Complex Interface Adapter) control regis- 
ters during Datassette I/O. Since JiffyDOS doesn't use the 
Datassette, it uses these addresses as toggles. 



The "compatibility" ROM is 

identical to the Kernal ROMS. 

This insures full compatibility 

and upgrades a ROM -J or 

ROM -2 CM... 



Many add-ons, such as Fast Load, and 
the Date! Mark-iv cartridge, use loca- 
tion 186 to decide which disk drive to 
access. If you teli the Mark-iv to dis- 
play a disk directory after printing on 
the printer, it vainly tries to show you 
a directory from device #4. 



JiffyDOS is smarter. It keeps its own 
active drive number, the one you set 

with @#. It stores it at location 787 
($0313). This location, marked "unused" on memory maps, sits 
between the USR (user routine) and the IRQ (hardware inter- 
rupt) vectors. It's only one byte, and not in zero page. So, most 
programmers don't use it. But JiffyDOS does, and I do. 

JiffyDOS also knows the legal disk device numbers. I could 
change between disk drives by POKBing an 8 or 9 to address 
787. But any other value was changed to 8 by the next disk ac- 
cess. Since the system works with more than two drives. I as- 
sume that values of 10 and up would be accepted if those de- 
vices were installed in the system. 

If you use address 787 in your own programs, be aware that 
JiffyDOS may change the value for you. That can be a feature. 
To tell from program mode if JiffyDOS is active, store 255 at 
location 787, issue a disk command, and see if location 787 
contains an 8. 

Summary 



Address 674 holds the function key toggle. A non-zero value JiffyDOS is a good compromise between maximum fast load- 
turns off the pre-defined function keys. ing and compatibility. 

JiffyDOS toggles the value at address 675 between 5 and 133 You can use any software or hardware. Your cartridge, Datas- 

whenever (8>B is pressed. The value is then sent to disk drive sette, and user ports are free. You can add a disk drive or use 

address 106 (S6A). This address controls the number of read at- part of your system with other non-JiffyDOS equipment with- 
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oul difficulty. There are no extra wires to bother with, and 
nothing to forget to plug in. 

JiffyDOS supports many non-Commodore drives. It may be 
your only choice for a speed up system if you use another 
manufacturer's drive, or mix 1541s and 1571s with the same 
computer. 

JiffyDOS worked with all the software and add-ons I tested, in- 
cluding some surprises. The Datel Mark-iv cartridge worked 
normally with JiffyDOS active. I loaded a "Warp*25" version 
of Disk Maintenance in seven seconds with the Mark-iv. Load- 
ing the standard'program with JiffyDOS took 45 seconds. Disk 
Maintenance has its own software fast loader, which probably 
deactivated the JiffyDOS routines. Once running Disk Mainte- 
nance, however, JiffyDOS read the blocks from the disk three 
times faster than with the Mark-iv alone. For ease of use, with 
some helpful features added, JiffyDOS is a good value. 

Here at the Transactor offices we have received JiffyDOS for 
the CI 28 and 1571 . This product works in 64 mode as well as 
128 mode. The instructions were very clear and well- 
illustrated. Installation was simple and the system works well. 
In our case, the drive instructions amounted to six pages (the 
1541 has been through several revisions and therefore re- 
quires seven pages). 

JiffyDOS allows 'power on' ROM switching. (Crashing or hang- 
ing up is possible; response varies with the program.) Do not 
switch during a disk access! 

On 1571 and 1581 drives, the drives sense whether the com- 
puter is in stock or JiffyDOS mode and select the correct rou- 
tines automatically. JiffyDOS speeds up 1571 and 1581 drives 
(though not as dramatically as it does the 1541). 




Faster than a Speeding Cartridge 
More Powerful than a Turbo ROM 

It's Fast, It's Compatible, It's Complete, Its... 



JiffvPO 



• Sp«*ds up all disk operations. Load, Save, Formal, Scratch, Validate, access 
PRG, SEQ, REL, & USR files up to 15 times faster! 

• Uses no ports, memory, or ertra cabling. The JiffyDOS ROMs ipgrade your 
computer and dnve(s) internally for maximum speed and compatibility. 

• Guaranteed 100% compatiblt with all software and hardware. JiffyDOS speeds 
up the loading and internal file-access operation of virtually aJIcommercia! software. 

• Built-in DOS Wedge plus 14 additional commands and convenience features 
including one-key (oaoVsave/scratch, directory menu and screen dump. 

• Easy do-it-yourself installation. No electronics experience or special toob re- 
quired. Illustrated step-by-step instructions included. 



Available for C-64, 64C, SX-64, C-1 20 & C-1280 (JiffyOOS/128 speeds up both 64 
and 128 modes) and 1541, 1541C, 1541-1. 1571, 1581, FSO-142, USD SD-1U, 
Excel 2001, Enhancer 2000, Amtech, Swan, Indus & BluechJpdsh drives. Sysiem 
includes ROMs for computer and 1 disk drive, stock/JiffyOOS switching system, 
illustrated installation instructions, User's Manual and Honey-Back Guarantee. 



C-64 SX-64 systems $59.95; C-128 C-128D systems $69.95; Add'l drive ROM's $29.95 

Pleasu add S4 25 Shipping h.v-diriQ per ortfcr p!u?S?5Dt0r AK HI APO i PQ 
Canada & Puerto R.co $10 CO add'l lor other overseas orders MA rftsidenisadd 5 
sales tax VISA MC, COO Check. Money Order Allow 2 wueks ?or personal efweks 
Call or wrtte lor more information. Deafer Qsirteutttf & UG pftciiig avai able 

Please specify computer and drive when ordering 

Creative Micro Designs, Inc. 

_T_ / \ f » -»■.■*■ t ; 1 L a i x ■ ■■.. _ . 



P.O. Box 739. Wilbraham. MA 01095 

50 Industrial Dr., Box 646. E. Longmeadow. MA 01028 



Phone: (413)525-0023 
FAX: (413) 525-0147 



Speed Comparison: The chart below is from the JiffyDOS 
manual and is based on results obtained using ML routines. 
They do not take into account spin-up delay (.5 sec.) or direc- 
tory searching time. Other factors may also influence the re- 
sults that you obtain on your system. ,, 



Speed Comparison Chart 
C64, SX-64, 64 mode 



Load 202-block PRG file 

Save 100-block PRG file 

Read 1 25-block SEQ or USR file 

Write 100-block SEQ or USR file 

Read 64 154-byte REL records 

Write one 1 54-byte REL record 

Read/write 16K on command channel 



1541 



124 


12 


75 


24 


84 


15 


81 


27 


40 


14 


.350. 


125 


47 


9 



1571 



124 


9 


75 


20 


84 


13 


81 


24 


40 


14 


.350 . 


120 


47 


9 



1581 



102 


8 


40 


15 


63 


9 


44 


17 


37 


10 


.325.110 


47 


9 



Load 202-block PRG file 

Save 100-block PRG file 

Read 1 25-block SEQ or USR file 

Write 100-block SEQ or USR file 

Read 64 154-byte REL records 

Autoboot 202-block program 

Read/write 16K on command channel 



C128 in 128 mode 

124 12 
75 24 
84 15 
81 27 

40 14 ' 

125 13 
47 10 



14 


9 


48 


25 


31 


12 


48 


33 


21 


14 


54 


10 


10 


6 



12 
26 
20 
20 
17 
13 
10 



14 

10 

II 

10 
9 
6 
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SWL 



Short-wave decoding for the C64 (and VIC-20) 



Hardware review by Noel Nyman 



SWL cartridge, available for VIC-20, C64, and CI28 
$64 US 

G&G Electronics 
8524 Dakota Dr. 
Gaithersburg MD 20877 
USA 

J 

(301) 258-7373 

The SWL cartridge, from G&G Electronics, has been adver- 
tised in Commodore-oriented magazines for several years, 
promising "Worldwide Short-wave Radio Signals on Your 
Computer." 



If your receiver uses a full size phone jack, you'll need an 
adapter. A second miniature jack on the cartridge can be used 
for headphones or a speaker to monitor the signal. 

A third jack is provided for connecting a key (the telegraph 
type), so you can practise your code sending skills with the 
cartridge. A slide switch is also used to select wide or narrow 
bandwidth for certain types of signals. 

The demo tape contains a long message in Morse code. You 
play the tape on any cassette player. The headphone output 
from the player is fed into the cartridge. By monitoring the 
sound, you can get a feel for the volume and pitch that work 
best. 



"Remember the fun of tuning in all those foreign broadcast 
stations?'' You bet I do! I once had a wwn Hallicrafters air- 
craft receiver, modified for short-wave use. The ad explains 
that all those "beeps and squeals" you hear in the short-wave 
bands are digital data. The swl cartridge will decode them for 
you. "You'll see the actual text [on your] video screen." 



The cartridge performed flawlessly with the demo tape. 

I connected it to my inexpensive multi-band radio, ran a long 
piece of wire around the room, and proceeded to look for sig- 
nals to decode. None that I found was loud enough to get even 
a glimmer of recognition from the cartridge. 



The cartridge plugs into the computer expansion port. It comes 
with a hook-up cable, a demo cassette, and a manual that ex- 
plains "how to get the most out of short-wave digital DXing, 
even if you're brand new at it." DXing is short for Distance 
Receiving. Swl is an ■acronym for Short- Wave Listening. 



1 decided that my receiver simply wasn't up to the task. So I 
contacted my friend John, who is interested in DXing. He 
loaned me a Kenwood receiver with digital tuning, sideband 
switches, adjustable filters, and many other bells and whistles. 
This was a far cry from that ancient Hallicrafters! 



There are several microprocessor based products that decode 
various sorts of short-wave code. The swl cartridge, at $64 
us, is by far the least expensive. That's because you supply the 
microprocessor, a C64 (or a CI 28 in C64 mode). A different 
model of the swl is available for the vic-20. 

All the decoders operate on the audio output of a short-wave 
receiver. They use a circuit called a pll (Phase Locked Loop) 
to 'lock in' on a narrow band of audio frequencies. The audio 
signal is then converted into digital output. A ROM (Read Only 
Memory) in the cartridge supplies the program that tells the 
computer how to use the digital output from the PLL. 

The cable supplied with the cartridge connects a miniature 
phone jack on the cartridge to your receiver's headphone jack. 



I easily heard hundreds of signals. I also heard incredible 
amounts of QRM (radio interference). I patiently adjusted, fil- 
tered, and tweaked on signals, trying to get the cartridge to re- 
spond to them. 

Swl provides an on-screen tuning indicator which flashes 
when the signal fed to the cartridge is recognized by the pll. 
An audio tone is also produced in the monitor speaker. With- 
out these tuning aids, getting the audio just right would be im- 
possible. Even with them, it's quite a challenge. 

Morse code is sent as cw (Continuous Wave). A circuit called 
a BFO (Beat Frequency Oscillator) in your receiver creates the 
audio 'dots' and 'dashes' from a cw signal. The BFO allows 
you to vary the pitch of the audio. The pitch also varies if the 
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signal's radio frequency drifts. The drift can occur in either the 
transmitter, your receiver, or both. 

The PLL circuit in the cartridge requires the audio input to be 
very near a specific frequency. You must adjust your receiver 
to produce audio at that frequency. On the Kenwood, several 
knobs affected the audio pitch. I found the volume was also 
important. 

Morse code can be sent at a variety of speeds, measured in 
wpm (Words Per Minute). The cartridge can adjust automati- 
cally to changing speed, but only over a limited range. You set 
the initial speed, and all other cartridge functions, using CTRL 
key combinations on the keyboard. So you must guess at the 
speed of a signal and set the cartridge, then adjust for the right 
pitch and volume. Variations in the signal strength and any fre- 
quency drift will cause pitch and volume changes. The con- 
trols on your receiver require frequent adjusting to compen- 
sate. Too much interference will swamp the cartridge. It won't 
be able to find the received signal amongst the garbage. 

I worked with the swl and the Kenwood for three evenings. 
My net result was a partial message which read "i am a retired 
airline pilot." I determined that most of the qrm was coming 
from the C64 itself. Some shielding was in order. A better an- 
tenna system was needed too. 

I explained the problems to John, who put me in touch with 
Bill. Bill's hobby is DXing. He has three Commodore comput- 
ers. But he's not really a 'computer person.' Instead, they only 
serve as aids to his many receivers, scanners, and other spe- 
cialized listening gear. 

Bill was interested in the SWL cartridge, and offered to help me 
test it. But he didn't expect much from such an inexpensive 
product. He uses a decoder made by Info-Tech. It's a large 
black box bristling with switches, and cost him several hun- 
dred dollars. 

So, I visited Bill in his listening post. He's solved the comput- 
er generated qrm problem by using large ferrite traps threaded 
around the equipment power cords. He also uses shielded ca- 
ble to feed signals from his sophisticated antennas. 

We tested the swl cartridge by connecting it and Bill's Info- 
Tech to the audio output of his receiver. Both units got the 
same audio signal. The Info-Tech has its own microprocessor 
and connects to a video screen directly. Both devices can de- 
code Morse and RTTY (Radio Teletype) signals. The Info-Tech 
can deal with several additional types, including packet radio 
(computer data sent by radio instead of phone lines). 

We found that the SWL cartridge and the Info-Tech did equally 
well with Morse code. Both devices displayed the same text 
consistently. Bill's receiver has more filtering than the 
Kenwood, which helped eliminate static and other signal 
interference. The SWL cartridge also did well with RTTY sig- 
nals. More set-up is required since there are many more varia- 



tions in RTTY than Morse transmissions. It was difficult to 
gauge the SWL's performance against the Info-Tech on RTTY, 
because they require audio at different frequencies in this 
mode. So, the two devices could not decode the signals simul- 
taneously. 

Bill was quite surprised at the performance of the G&G Elec- 
tonics cartridge. It did as well as the much higher priced Info- 
Tech, for the signals it was designed to decode. 

But this device is not for the casual user. The cartridge will not 
work at all with an inexpensive short-wave receiver. You must 
have a good radio that will let you adjust the audio to the 
range that the swl can handle. You must also have a good 
knowledge of what the signals sound like, and what adjust- 
ments to make from the keyboard to decode them. Without 
Bill's expertise, I would have wasted most of the evening on 
inappropriate "beeps and squeals". 

You'll need good shielding on the computer also. The comput- 
er must be within reach of the radio for proper operation, since 
you'll need to make adjustments on both often. The computer 
and monitor must not create any radio interference. You'll 
need clean signals to get proper cartridge operation. 

The cartridge is an inexpensive way for the dedicated ox'er 
with a C64 to add on-line automatic decoding. It is not appro- 
priate for a computer owner who's just getting started in the 
exciting hobby of short-wave listening. Q 



HRT-I 



ART-1: A complete interface system 
for send and receive on CK, RTTY 

(Baudot 4 ASCII) and AMTOR, for 

use with the Commodore 64/128 

computer. Operating program on 

disk included. $199.00 



AIR-1: A complete interface systen 
for send and receive on CW, RTTY 
(Baudot $ ASCII) and AMTOR* for 
use with Commodore VIC- 20. 
Operating program in ROM. $99.95 




5WL 



AIRD1SK: An AIR-1 type 
operating program for 
use with your interface 
hardware. Both Vrc-20 
and C64/128 programs on 
one disk. $59.95 

AIR-ROM: Cartridge 
version of AIRDISK for 
C64/12S only. $59.95 



MORSE 
COACH 



SWL: A receive only cartridge for 
CK, RTTY (Baudot & ASCII) for use 
with Commodore 64/128. Operating 
program in ROM. $64.00 



RiRDIS 



MORSE COACH: A Complete teaching 
and testing program for learning 
the Morse code in a cartridge. 
For C64 or C1Z8. $49 qc 

VEC SPECIAL J39.9S 



These products formerly manufactured by MICROLOG 



G and G ELECTRONICS 

OF MARYLAND 



8524 DAKOTA DRIVE, GAITHERSBURG, MD 20877 

(301) 258-7373 
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The ZR2 Hardware Interfacing Chip 



Control functions via the user port 



Hardware review bv Noel Nvman 



ZR2 - 40 pin DIP hardware interface integrated circuit chip 
$29.95 plus $1.55 shipping (us) 

ALX Digital 

J 2265 S. Dixie Hwy #922 

Miami FL 33 1 56 

a disk with BASIC routines to control the ZR2 connected to a 
Commodore user port is available for $5 

Commodore eight-bit computers have an 'open architecture 1 , 
with all control and data signals brought to the outside world. 
The VIC-20 and C64 also provide a user port with eight bi- 
directional lines easily controlled by BASIC software. Their 
low cost makes them ideal for hardware control systems. 



60Hz. If you develop a DC dimming or serial transfer applica- 
tion, then change the crystal frequency, you may have to adjust 
your software to compensate. 

The eleven inputs fall into three groups: eight data inputs, two 
' logic points 1 , and a reset line. For most applications, one or 
both logic points are required. The reset signal is necessary if 
you want to change functions under software control. If you 
use the Commodore user port, that leaves only five lines for 
data inputs. This is enough to select all of the ZR2's functions. 
But, some functions accept parameters using all eight data in- 
puts. With the user port application, you're limited in the range 
of these functions you can access. 

Parallel decoders 



But, the time saved by using these computers is often lost 
again in building the hardware interfaces you need to make 
computer signals operate real-world devices. 

A product that attempts to make interfacing easier is the ZR2. 
from ALX Digital. This forty-pin DIP (Dual Inline Package) 
chip provides several programmable functions. The functions 
can be loosely grouped as: one-of-X outputs, pulse counter, se- 
rial functions, dimmers, and specialized display. 

Hardware requirements 



The user port itself is a simple eight line decoder. By sending a 
value between 1 and 255 to the user port, its outputs can be 
'turned on* in any combination. The outputs are 'latched' in 
this state: they don't change until another number is sent to the 
port. 

If want to turn on output #5, your software will have to calcu- 
late the appropriate binary value to send to the port (32 in this 
case). If you want to turn on output #7 without turning off #5, 
you'll have more calculation to do (128+32=160). If you need 
more than eight outputs, you have a challenge. 



The ZR2 has eleven inputs and sixteen outputs. The only addi- 
tional parts required are pull-up resistors, a capacitor and a 
crystal (see Figure 1). ALX recommends using buffers on the 
ZR2 outputs, and specifies 74240's. These are TTL (Transistor- 
Transistor Logic) tri-state gated buffer packages. Since they 
invert the ZR2 signals, I used the similar 74244. It is pin-for- 
pin compatible, but provides un-inverted buffering. 

The ZR2 requires about lOOma (milli-amperes) at five volts 
DC. A C64 with a power supply in top condition might be able 
to provide lOOma. But I strongly suggest a separate power 
supply for the ZR2 and the circuits it drives. Be sure to con- 
nect computer ground to ZR2 circuit ground. 

A crystal frequency between lMHz and II MHz will work for 
most functions. A 4MHz crystal is specified for AC dimming at 



The ZR2 provides some easy alternatives. In what's called the 
"matrix" mode, you have two eight line decoders. To activate 
this mode, you first place a value of five on the data bus and 
ground the reset line. This resets the ZR2 to the function speci- 
fied by the number on the data bus. Next, place a zero on the 
data bus. In matrix mode, the zero value is a toggle. But in 
some modes, a fast zero is required, or the mode selection 
number may also be interpreted as the first data value. 

Now send any value between 1 and 255 to the data bus. The 
corresponding outputs of "outport #1" will turn on. They will 
be latched, just as with the user port. Sending a zero to the 
data bus toggles the data bus to "outport #2". The next data 
value will turn on the appropriate lines on outport #2. New 
values sent to the ports will change the output lines in the 
same manner as the user port. 
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To zero an outport, you must ground a logic point line while 
sending data to the outport. This worked fine for me on out- 
port #2. But, I was unable to zero outport #1. Also, with three 
of the Commodore user port lines connected to the logic points 
and reset, I was limited to controlling five lines on each 
outport. 

An alternative decoder may be more useful in some circum- 
stances. The one-of- sixteen decoder is selected by resetting 
the ZR2 with a six on the data bus. If you don't quickly follow 
this with a zero, the six will appear at the ZR2 output. Even at 
computer speeds, your real world devices might respond to 
this brief signal. I'll discuss a 'fix' for this later. 

Now a value from one to eight will turn a corresponding line 
of outport #1 on. Note that this is a true one-of-eight decoder, 
where the "matrix" was a binary decoder. If you put a number 
from nine to sixteen on the data bus, a line on outport #2 will 
turn on. This is the "OR" modc.only one line on each outport 
will be on at any time. Alx has designed the ZR2 so the out- 
ports are somewhat independent in this mode. You can turn on 
lines in either port with just one number on the data bus. But, 
following an eight with a nine will leave the last line on out- 
port #1 on and turn the first line of outport #2 on also. 

If you have a need for many lines to be on at one time, you can 
enter the "and" mode by grounding logic point #2. Now 
sending in sequence T, *2\ \V to the data bus will cause the 
first three lines on outport #1 to come on. Sending a zero to 
the data bus clears the outputs in both modes. 

Serial decoder 

The serial decode function provides an interesting alternative, 
since fewer data lines are required to use it. In fact, if you set 
up the function using hardware (switches perhaps), you only 
need two signals. Data is sent on logic point #2. Up to eight 
pulses can be sent. A line will turn on at outport #1 represent- 
ing the total number of pulses sent. The timing is moderately 
critical here. If the pulse widths and frequency aren't right, the 
decoding will be erratic, or not work at all. The exact timing 
will depend on the crystal frequency you use. 



Outputs are "ANDed". So, sending T, '2\ and '3* in succes- 
sion will cause all three of those lines to turn on. You can con- 
trol outport #2 independently by grounding logic point #1 be- 
fore sending pulses. A nine sent to either outport will zero the 
outputs. 

An interesting possibility here is that the pulses to logic point 
#2 don't have to come from the computer. You can use pre- 
recorded pulses from tape, or clocked pulses from a ROM, or 
from another ZR2. Using tape, you could set the device up en- 
tirely in hardware with switches... no computer required. 

Alx has also implemented its own proprietary serial transmis- 
sion system, using two ZR2's. The first ZR2 receives a parallel 
eight byte word, and generates serial pulses on outport #1 line 



#1. A parallel copy of the word appears on outport #2 for veri- 
fication. These pulses are fed to logic point #2 of the second 
ZR2, set for serial input. 

In this mode, the receiving ZR2 displays the received data on 
outport #1 in binary form. The data is latched until a new word 
is received. New words replace old ones; no "AND" mode. A 
zero is a "start of transmission" signal to the first ZR2, and is 
not sent as data. Not being able to transmit a zero value makes 
this serial system useless for sending program or other data. 
But it can be used to send one-of-eight input control signals 
over long distances. There is a decoding delay, which increas- 
es with the value of the number sent. 

Pulse counter 

Pulse counting mode is similar to serial decoding. However, in 
this mode, new pulses are merely added to the existing count. 
Both outports are used together. So, numbers up to 65,535 can 
be "displayed". The lines change with each pulse received. 
This makes for an interesting display. But, any devices con- 
nected to these lines will get momentary pulses as you send 
new numbers. 

DC dimmer 

Up to eight separate lines can be selected for dimming via out- 
port #1. The lines start with no output. Grounding logic point 
#2 causes pulses to be sent to the selected lines. The pulses in- 
crease in width, based on the crystal frequency. The observed 
effect on leds connected to the lines is that they gradually 
come up to full brightness. After briefly grounding logic point 
#1, logic point #2 is used to dim the leds again. Bringing log- 
ic point #2 high during the process holds the LEDS at their 
brightness level. So a slower speed can be implemented by 
pulsing logic point #2. 

Of course, other devices can be used in place of leds. I tried a 
small DC motor with fair results (be sure to use a back-biased 
diode to prevent reverse voltage spikes entering the integrated 
circuits). But any robotics usefulness of this mode is eliminat- 
ed because you must come up to full "brightness" before 
"dimming" again. You can go from any brightness level to ze- 
ro, a feature not mentioned in the ZR2 documentation. 

AC dimmer 



To utilize AC dimming, you need a 4mhz crystal driving the 
ZR2, and some additional parts. AC dimming works differ- 
ently from DC dimming. Not only can you 'dim* before reach- 
ing full brightness, you can't avoid it. Bringing the logic point 
high to halt the process also toggles the direction. To brighten 
lights to a particular level, stop, then brighten again, you must 
send two ground pulses to the logic point. The first toggles 
dimming, the second switches back to brightening. Since 
we're dealing with AC devices, this won't be a problem for the 
outputs. But it means a more device intensive software 
routine. 
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Only one output can be controlled in AC dimming. However, 
the dim rate is selectable over a reasonably wide range by 
placing a number on the data bus. 

Specialized displays 

My first electronics construction projects were 'do nothing' 
boxes. We made them from neon lights, capacitors, and resis- 
tors (relaxation oscillators to you knowledgeable folks). The 
lights flashed in patterns, usually a circle. 

Integrated circuits made 'do nothings' much more sophisticat- 
ed. I wrote (wo articles for Radio-Electronics magazine on 
LED 'do nothing' boxes that used ROM's to produce a variety of 
displays. 

Perhaps because of my past interest in doing nothing, 1 found 
the "chaser" routines most interesting. There are four separate 
displays that produce 'chasing' patterns on LEDs or other lights 
connected to the outpotts. The displays are speed controllable, 
via the data bus. They can also be operated in "pulse" mode 
through the logic points. 

I 

You can make a simple 'do nothing' that switches among the 
four displays. Or you could connect the outputs to Christmas 
tree lights or other displays for some interesting effects. Clever 
as they are, the chasers are not very useful for hardware 
control. 

t 
Should you buy one? 

If you have the electronics expertise, you could build a hard- 
ware device to perform any one of these tasks for less than the 
cost of a ZR2. If you have only one particular project in mind, 
the ZR2 may be overkill. 



If you like to experiment, or if you find your hardware needs 
changing periodically, the ZR2 may be a reasonable invest- 
ment. You can certainly connect it in several different circuits 
more easily than you could construct equivalent hardware. It 
may even be cheaper to test systems using the ZR2 that you 
eventually build from discrete parts, if your development time 
is valuable. 

There are some problems, many with the documentation. 
Some electronics knowledge on the user's part is assumed. In 
the first example (the chasers), the user is told to "bring the 
same pin [logic point #2] up to +5 volts." A few sentences lat- 
er comes the Caution "NEVER CONNECT ANY PIN OFTHEZR2 DI- 
RECTLY TO +5! 



?* 



This apparent discrepency assumes that the user understands 
"+5 volts" as a slang terminology which actually means "log- 
ic one" in the TTi. world. A ttl "logic one" is usually in the 
range of +3.4 volts. Some input lines can cause internal chip 
problems if connected to the higher +5 volts. The user must 
have a good idea when "+5 volts" in the manual really means 
"logic one." 



The first example also implies that the ZR2 must be started 
from a power off condition to change modes. In fact, a 
grounded reset line will switch modes on the ZR2. It will also 
force all outputs high briefly. This may be annoying for light 
displays. It could mean disaster for real world devices con- 
nected to those outputs. This and other design 'features' proba- 
bly stem from alx's background designing lighting control 
systems. Lights aren't as fussy about brief spurious signals as 
are integrated circuit controllers. 

My solution was to add a one-shot circuit to the standard 
schematic provided by alx. I connected the output of the one- 
shot to the gate pins on the buffers. The one-shot is triggered 
by the ZR2 reset signal to disable the buffer outputs. It's timed 
to hold the gates low until the ZR2 settles its outputs down to 
their desired state. 

It's not always clear from the documentation what the state of 
the logic points should be. There are several unused pins on 
the chip. These should not have anything connected to them or 
internal damage may result. But no caution appears in the 
manual. 

Alx has informed me that they are working on a revision of 
the documentation to correct some of these problems. 

For experienced electronics experimenters, the ZR2 provides a 
cost effective way to quickly and easily experiment with new 
interface circuits. 
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NckihNNest 



MUSIC 

CENTER 

INC. 



539 N. Wolf Rd. — Wheeling, IL 60090 
Hours— , V oice) Phone (312)520-2540 
Mon.-Thurs. 12:30-5:00, Sat. 12:00-4:00 

(24 Hour Order Recorder) 



tofe want to be. Commodore S h 

i • * i ..Aur nrnhaned con 



• • 



,1 



Do you 



M ..Re no o J ne ^^^^Xo^t^^ 

NWM cares!! We still stocK a™ ^ ^ ^.^ programs . 



Hscfteife Qopnep 

One of a Kind • Surplus • Monthly Special • Closeouts 



Parts available for some 



Limiredqoaniir*stostockoriharKj 



64 k wee to parallel buffer $199 00 

40?3p lOOcps rehab $9900 

64k ram exp 8032 $110 00 

Smith Corona DM-200 $179,95 

640O 8300p. Diablo 630 ribbons $495 



8023pand MPP 1361 ribbons $5 50 

9090 7 5 meg rehab $495 00 

4023p ribbons $600 

Everex 2400 external modem $245 00 



SUPER SPECIAL 

64 K memory expansion for 8032 

— with superbase 8096 both for only $1 25.00 

— with superscript 8096 both for only $1 25.00 

Superpet 9000 rehab $1 50.00 
8050 disk drive new $400.00 
8050 disk drive rehab $200.00 



B-128 
$99 u.s. 



rehab 



NEW 128K USER INSTALLABLE 
MEMORY EXPANSION! 
INTRODUCTORY PRICE OF ONLY $125. 




SOFTWARE FOR THE B-128!!! 

CABS. Accounting 



Superbase $19.95 

Superscript $19.95 

Superoftice integrated 

Superbase & Superscript $49.95 

Calc Result $89.95 

Word Result $89.95 

Super Disk Doc 24.95 

The Power of: Calc Result (Book) $14.95 



General Ledger $ 9.95 

Accounts Receivable $ 9.95 

Accounts Payable $ 9.95 

Order Entry $ 9 95 

Payroll $ 995 

Buy all 5 tor only $24.95 

Superbase: The Book $14.95 

Applied Calc Result (Book) $14.95 



8000, 9000 and B series models! 

Commodore's 
Superpet 9000 

only $19900 

while supplies last 

With Five 

Interpretive 

Languages: 

Cobot 

Pascal 

Basic 

Fortran 

Apt 

Runs 8032 software. 
Great for schools and students 

64K Memory Expansion for 8032 only $110 
upgrades your 8032 to an 8096. 

COMMODORE 
8000-9000 SOFTWARE & MISC. 




9000 Superpet $199 00 

64K exp tor 8032 $110 

OZZ Database $25 

BPI General Ledger $25 

BPI Accts Payable $25 

BPI Job Cost $25 

BPI Accts Receivable $25 

BPI Inventory $25 



Superscript 8032 $79 

Superbase 8096 $79 

Legal Time Ace $25 

Dow Jones Program $25 

Into Designs 8032 

Accounting System $50 

Superottice 8096 $149 

Calc Result 8032 $89 



SFD1001 1 Megabyte 
PRICED AT $149.95 (US) 

$1 25 with purchase of Superpet 



SFD-1001 is the drive that you should consider when you need large amounts of data storage. It holds 
over 1 megabyte ot data on its single floppy drive. Fast IEEE access for your C-64 or C-128, (C~64and 
C-1 28 need an IEEE interlace-) Why settle (or slower drives with less storage capacity This drive stores 
substantially more programs and data. Think how much money you can save on disk purchases- In 
tact, it stores almost 7 times more information than your standard drive. Bulletin board owners love 
th em. And what an introductory price* At $1 69 95 these drives will sell fast, so don't wart This drive has 
the identical formal of a CBM 8250 drive, one of Commodores most durable floppy drives. 




MODEL SFD-1001 


Sector/Cylinder 


— 


DRIVES 


1 


Sector/Track 


23-29 


HEADS/DRIVE 


2 


Bytes/Sector 


256 


STORAGE CAPACITY (Per Unit) 




Free Blocks 


4133 


Formatted 


1.06 Mb 


TRANSFER RATES (Bytes/Sec) 




MAXIMUM (Each Drive) 




Internal 


40 Kb 


Sequential File 


1.05 Mb 


IEEE-488 Bus 


1.2 Kb 


Relative File 


1.04 Mb 


ACCESS TIME (Milli-seconds) 




Disk System 




Track-to-track 


■ 


Butler RAM (Bytes) 


4K 


Average track 


■ • 


DISK FORMATS (Each Drtve) 




Average Latency 


100 


Cylinders (Tracks) 


(77) 


Speed (RPM) 


300 



ORDER NOW WHILE STOCK LASTS! 

Send or call your orders to Northwest Music Center, Inc ^39 N Wotl Rd.. Wheeling IL 60090 312-520 
2540 For prepaid orders add $25 50 for Superpet, $10 45 SH) 1001. $11 45B-12B $10 45 4023p + 516459090 
ana $5 45 64K memory expansion For software add $3 50 tor first and $2 00 tor each additonat book or 
program Canadian shipping charges are double US ForCOD orders add $2 20 per box shipped Allorder? 
must be paid in US hjnds Include phone numbers with area codes Do not use PO Box. only UPS shrppar.. 
addresses A 2 week hokj will be imposed on all orders placed with a personal or business check C f \ 
orders shipped in US only and cash on delivery, no checks 30 day warranty on all products from UWtei 
No manufacturer warranty NWM reserves the nghl to limn quantities to stock on hand and adiu 
without notice 1 

All prices quoted Jn US dollars. 
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With amazing computers. 
Stunning software. 
Powerful peripherals. 

The World of Commodore is coming 
to capture your imagination. 

It I ihe compute itlOW for beginners and hackers, prof. -. -.i» >nals and 
Hi-,, hu nit* '. |ir.. ( >ir ,md home uvr.s. 

i ommodore Business Machines md many other exhibitors will display and sell the amiga, c-64, 

C128, PCcompUtem, a galiX) Ol Ol in tot Commodore ind AMIGA computers and .1 v • 1 1 lentiM i < insicll.iiiiiii 

ol printers, dial drives and desktop publishing equipment, Vou will find penphei ■isand-aciev.ories 
fbi ill your present and fature equipment It's computer heaven. 

i.< dtmonttradonstod prov(K-an« mtnars, presented by top expen ■ ai. m. luded withynm uium ion 

Tiu ■ d lysol bargains, selection, Information, excltemeni and pita 

See U »ii with youi own - Try it all with youf own hands, At the World ol Commodore In Los Angeles. 

May 19, 20 & 21, 1989 LA- Convention Center 

. dults $10 students as »rs$8 ! mummsi In p democwratl inducted with sdmi 

EsNbitot 4Cl: The Hunter Group (416) 505-5906 Fax: (416) 595-5093 Hroiiuced in association with Commodore Business Machines 
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